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(57) Abstrud 

A solid phase synifaesis system is provided by employing a fuDy automated robot (20) that operates with a novel timing protocol 
executed by a computer (25) for handling multiple synthetic tasks efficiendy. The fiiUy automated robot (20) moves along a track (35) and 
is equipped with a gripper arm (30) which can fnd^ up, posldoo, azul operate syringes (40, 60) which can contahi solid supports and ainino 
acid leactants. Ibe novel timing protocol Is mlized by peiforming steps in the synifaesis cycles for diifciem compounds, such as peptides, 
concutrently rather Oan on a aeqnemia] basis. 
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APPABATOS AKD METHOD FOR 
MULTIPLE SYNTHESIS OF ORGANIC 
COMPOUNDS ON POLYMER SUPPORT 

5 Technical Field 

This invention relates to an apparatus and method 
for the multiple synthesis of compounds consisting 
essentially of repeating structural units formed, for 
example, by repeated washing, deprotection, and 
10 coupling. More particularly, the invention is 

directed to a system for the' multiple synthesis of 
organic compounds, such as peptides, which uses an 
automated robot for handling multiple synthetic tasks. 

X5 Reference To Microfiche Appendix 

A microfiche appendix consisting of two (2) 
microfiches and of a hundred twenty (120) frames is 
included as a part of the specification. The 
microfiche appendix contains a program listing 

20 implementing the present invention. The program 
listing is subject to copyright protection. The 
copyright owner, however, has no objection to the 
facsimile reproduction by anyone of the program 
listing, as it appears in the Patent and Trademark 

25 Office file or records, but otherwise reserves all 
copyright rights whatsoever. 

Background of The Invention 

Systems for the synthesis of organic compounds, 

30 for example peptides, are highly desired for many 
applications. For example, the synthesis and 
collection of a large number of peptides would assist 
in the development of agents that could block, promote 
or otherwise affect cellular reactions that involve 

35 recognition and binding. These agents would be useful 
in the treatment or diagnosis of a number of diseases. 
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More particularly, synthetic peptidea can be used as 
diagnostic and therapeutic agents. 

Understandably, peptide synthesis systems have 
5 been designed and constructed. Houghten, R.A.. £eoc. 
Mtl Aca^, , 82: 5131-5135 (1985). employs a -tea 

bag- method using standard Boc amino acid resin in 
polypropylene mesh packets with standard washing 

10 frrr^'""' -upling proto;ols 

10 of the original solid phase procedure of Merrif ield 
^' /^er. Q^^rn Pnr , , 85: 2149-2154 (1963). 

a. ^ "^^f synthesis systems have been 

automated for the synthesis of multiple peptides, they 
15 generally exhibit poor -respite- time, unable to 
handle efficiently multiple synthetic tasks. Per 
example, commercial peptide synthesis systems, such as 
those from Gilson, USA and Advanced Chem Tech, are 
capable of synthesizing multiple peptide sequences. 
20 However, these automated synthesis systems perform 

each step i„ the synthetic cycles for all peptides one 
by one or sequentially. The timing protocol, more 
specifically, involves washing all peptides one by 
one. deprotecting all peptides one by one and then 
.5 coupling all peptides one by one. For example 

coupling is initiated for a first peptide and ^hen 
when those first initiation coupling steps are 
completed, coupling is initiated for a second peptide 
such a timing protocol results in an especially long " 

wish'' " rr^''" ^^^''^^ ^^^^"i- -teps. 

washing all peptides one by one is time consuming. 

Moreover, during coupling, the system is idle while 

5 Zll • ' Of prior art automated 

» synthesis systems is severely limited. 
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Furthermore, prior art automated peptide 
synthesis systems critically lack flexibility. Once 
the synthesis of a peptide set has started, any 
additional peptides, even those urgently required, 
5 cannot be started. Furthermore, prior art systems 
lack the flexibility so as to execute more than one 
type of coupling reaction, which is typically required 
for the synthesis of non*peptide compounds. 

10 ^qtifwfiia ^ of The Invention 

A novel synthesis system overcoming the drawbacks 
of the prior art is realized by employing a fully 
automated robot that operates with a novel timing 
protocol for handling multiple synthetic tasks 

15 efficiently. The novel timing protocol is realized by 
performing different steps in the synthesis cycles for 
multiple organic compounds concurrently rather than on 
a seG[uential basis. 

20 Advantageously, this novel timing protocol 

provides the flexibility of readily adding desired 
compounds to the list of compounds to be synthesized, 
chsmging the order in which the compounds are 
synthesized, or deleting previously entered compounds. 

25 More importantly, such a timing approach or protocol 
decreases the "respite" time • new synthesis steps of 
the next compound synthesis being initiated prior to 
the completion of those in the previous synthesis. 

30 In an exemplary embodiment, the novel synthesis 

system includes an industrial robot system operating 
under computer control for effecting the synthesis 
steps within each cycle of the sfelected compounds, for 
example, peptides. Each synthetic cycle comprises 

35 five different steps: washing, adding deprotection 
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reagents, deprotection, adding coupling reagents and 
coupling. Because deprotection and coupling do not 
involve any robot action they are passive synthetic 
ateps, although chemically active; the other steps are 
active synthetic steps. 

Importantly, the novel timing protocol is 
realized by having the robot system, during the 
passive synthetic steps of a compound synthesis, 
perform active synthetic steps for the synthesis cycle 
of the synthesis of the next compound. 



m a preferred embodiment of the invention, a 
solid-phase peptide synthesis is used, with a first 

15 set of plastic syringes containing the resin used as 
the solid support and serving as the reaction vessel 
Additionally, a second set of plastic syringes 
contains amino acids. The robot system equipped with 
a gripper arm positions any one of the plurality of 

20 syringes to selectively aspirate and dispense solvents 
and reagents from the desired syringe in accordance 
With the novel timing protocol for coupling 
predetermined amino acids to the solid support. 

" -Brief Pes«irlT»fc<»» The n.-^^ ^ ^^ 

A more complete understanding of the invention 
may be obtained by reading the following description 
in conjunction with the appended drawing in which like 
elements are labeled similarly and in which: 
30 Fig. 1 is a block diagram of a synthesis system 

xn accordance with the principles of the invention; 

Figs. 2A and 2B are illustrative flow charts 
representing the operation of the synthesis system of 
Fig. 1, and more particularly, the timing protocol- 
35 and 
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Pig. 3 is a chart illustrative of the timing 
protocol for the synthesis system of Pig, i. 

Detailed Description 

The invention relates to an apparatus for the 
multiple synthesis of compounds consisting essentially 
of repeating structural units, for example peptides, 
formed by repeated washing, deprotection, and 
coupling. The apparatus or synthesis system employs a 
fully automated robot system that operates with a 
novel timing protocol for handling jsultiple synthetic 
tasks efficiently. The novel timing protocol is 
realized by performing different steps in the 
different synthesis cycles of multiple organic 
compounds concurrently rather than on a sequential 
basis, as discussed in more detail below. 



20 



Without any loss of generality or applicability 
for the principles of the present invention, the 
overall operation of the present invention is 
described using, as an example, Fmoc/tBu chemistry, 
applied to the Merrifield solid phase synthesis of 
peptides, it should, however, be understood that the 
present invention is equally applicable to any other 
25 chemistry for the solid phase synthesis of compounds 
that consist essentially of repeating structural 
units, such as polymers or organic compounds as 
described, for example, in Borchardt et al., j. Am. 
gh^^. Soc , 116: 373 (1994), Chen et al . , J. Am. rh^n, , 
30 S2C^, 116: 2661 (1994); Simon et al . , EHaS, 89: 9367 

(1992) ; Nikolaiev et al.. Pent . Rf.s g: 161-70 

(1993) ; and Lebl et al . , Vol. 5: 541-548, Techn-iq uf«p 
In Protein Chemiatry. Academic Plress, San Diego 

(1994) , which are incorporated herein by reference. 



35 
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Before describing the present invention, however, 
it will be instructive to discuss briefly the basic 
principles of peptide synthesis. Peptide synthesis 
involves the coupling of amino acids and may be 
5 accomplished by techniques familiar to those skilled 
in the art. See, for example, Stewart and Young, 
Solid Phase Svnthesi^. Second Edition, Pierce Chemical 
Co., Rockford, IL (1984), which is incorporated herein 
by reference. 

10 

V The process of peptide synthesis on solid 
supports generally involves building a peptide from 
the carboxyl or C- terminal end in which the C- terminal 
amino acid with its protected a-amino group is 

15 attached to a solid phase polymer. The protecting 
group is then cleaved off, emd the next amino acid, 
also protected, is coupled by a peptide bond to the a- 
amino group of the amino acid attached to the solid 
support. The cycle of deprotecting the prior amino 

20 acid and coupling the additional amino acid is 

repeated until the desired peptide is synthesized. 
Any reactive side chains of the amino acids are 
protected by chemical groups that can withstand the 
coupling and Na-deprotection procedure* These side 

25 chain protecting groups, however, can be removed at 
the end of the synthesis. 



In order to couple an amino acid to the growing 
synthetic chain, the carboxyl group of the blocked 
30 amino acid must be activated. Many methods of 
activation may be used, including, for example, 
preformed symmetrical anhydrides (PSA) , preformed 
mixed anhydride (PMA) , acid chlorides, active esters, 
and in situ activation of the carboxylic acid. 
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The present synthesis eystem includes a fully 
automated robot system interfaced to a computer for 
effecting the synthesis cycle of each desired peptide 
to be synthesized. Referring to Pig. l, there is 
illustrated a block diagram of a preferred embodiment 
of a system for the multiple synthesis of compounds, 
more particularly peptides, applying standard Pmoc/tBu 
chemistry in accordance with the principles of the 
invention. 

Synthesis system 10 comprises an industrial robot 
system 20, such as Model A251 from CRC Plus, Inc., 
Harrington, Canada, that is interfaced to a IBM 
personal computer 25 . Computer 25 includes such 
hardware as a central processing unit, program and 
random access memories, timing and control circuitry, 
input and output interface devices, and other digital 
subsystems necessary to the operation of the central 
processing unit, all of which are well known and 
understood in the art. Accordingly, such computer 
hardware is not discussed herein for the sake of 
clarity. 

Robot system 20 is programmed to effect different 
mechanical manipulations through the use of pre- 
programmed steps typically provided for in software 
programs delivered with the robot system. 
Alternatively, such preprogrammed steps can be 
provided for in third party software programs, such as 
Total Control For Windows,. Hudson Control Group Inc., 
Springfield, New Jersey. Those skilled in the art 
will readily note that other computer means, 
microcomputer control means or other automated control 
means ^ including other programming software, may be 
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alternatively provided to effect mechanical 
manipulations . 



Automated robot system 20 equipped with a gripper 
5 arm 30 that is movable under program control along 
track 35 can pick up and position (X.Y,Z) any one of a 
plurality of syringes to any predetermined location. 
The gripper arm is used to selectively aspirate and 
dispense solvents and reagents from the desired 
10 syringe which serves as the reaction vessel for 

c6u.:?ling predetermined amino acids to a solid support. 
More particularly, each syringe has a plunger that is 
movable by the gripper arm so as to aspirate or 
dispense reagents in a manner well known to those 
IS skilled in the art. See. for example, Krchnak, v., 
Vagner, J., "Color-Monitored Solid-Phase Multiple 
Peptide Synthesis Under Low-pressure Continuous Flow 
Conditions," pgptAde Rfig, 3. 182 (1990) , which is 
incorporated herein by reference. Moreover, the 
gripper arm provides a means for shaking the contents 
of the syringes. Also, the content amount of reagents 
in each syringe can be readily determined by detecting 
the position of the plunger within the desired 
syringe. Also, to confirm that the syringe has been 
properly gripped and positioned, an optical sensor 36 
detecting the motion of the syringes is preferably 
used to provide feedback to the synthesis system. 



20 



25 



30 



35 



A suitable solid support may be selected, such as 
a polystyrene or polyethylene glycol/polystyrene 
resin. The protected amino acids may be readily 
obtained from a number of places, such as Bachem 
(Torrance, California), Advanced' CheraTech (Louisville, 
Kentucky) or Propeptide (Vert-le-Petit. France) . 
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Importantly, computer 25 also controls when each 
step in the synthesis cycle is initiated so as to 
implement the novel timing protocol of the present 
invention wherein different steps in the synthesis 
5 cycles of multiple peptides are performed concurrently 
rather than on a sequential basis. 

More particularly, synthesis system 10 includes a 
first set of plastic syringes 4 0 for holding resin 
10 used as the solid support, herein referred to as 

"resin syringes." In the preferred embodiment, RAM- 
TentaGel (0.21 romol/g) obtained from Rapp-Polymere, 
Tubingren, Germany, is used as the resin. 

15 First set of plastic resin syringes 40 is placed 

in incoming racks 50, each holding up to, for exanqple, 
thirty 10 ml and thirty 2.5 ml syringes. Synthesis 
system 10 also includes a second set of plastic 
syringes 60 for holding amino acid solutions, herein 

20 referred to as "amino acid syringes." Similarly, 

second set of syringes 60 are placed in racks 70, each 
holding up to, for example, a hundred 10.0 ml and a 
hundred 2.5 ml syringes. Basket 65 holds the 
completed synthesized peptides. The number and size 

25 of the first and second sets of syringes will be 
dependent on the number of different peptides 
synthesized, the length of the peptides and the number 
of different amino acids required. 



30 Plastic syringes 40, 60 preferably are made of a 

material, such as polypropylene, that is sufficiently 
chemically inert to all solvents and reagents used in 
the solid-phase peptide synthesife, including 
trif luoroacetic acid. Alternative materials include 

35 Kevlar, Teflon or cast glass. 
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Each plastic resin syringe 40, which serves as 
the reaction vessel, is equipped at the bottom with a 
frit (not shown) . It should be understood that 
various other vessels and means for retaining the 
5 solid phase and removing the excess reagents and 
solvents may be used. For example, columns or wells 
fitted with a frit or filter may be used as 
alternative reaction vessels that are compatible with 
the present synthesis system. In that alternative, 
10 the columns or wells are connected to a vacuum source 
in such a .manner that they can be disconnected from 
the reaction vessel. Moreover, the frit or the means 
for retaining the solid phase does not have to be 
integral with the reaction vessel. Rather, it can be 
external or only present when necessary to retain the 
solid phase during the removal of solution therefrom. 



15 



Appropriate solvents and reagents are introduced 
from solvent reservoirs to delivery cups 80 using four 

20 10 ml piston pump systems 90, such as the Hamilton 

MicroLab 900, Reno Nevada. Commercial -grade solvents 
and reagents, such as dimethyl formaminde (DMF) , 
piperidine/DMF, DIC/DMF, are used. Three of the 
piston pumps deliver solvents and reagents to delivery 

25 cups 80 whereas the fourth piston punp removes waste 
as well as wash solution from cups 80 where the amino 
acids and the coupling reagents are mixed. 



30 



Delivery cups 80 comprise a first cup lOO that is 
used for all washing and for receiving the protected 
amino acids and coupling reagents, and a second cup 
110 that is used for receiving deprotection reagents. 

Those skilled in the art will readily note that 
35 further independent manipulating stations may be used 
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to manipulate the syringes, depending on the 
particular reaction desired therein, such as 
dispensing, aspirating, shaking, heating, 
cooling or even refluxing. In those instants, robot 
5 system 20 would only be required to position the 
appropriate syringes in the desired manipulating 
stations. This would decrease the required time to 
perform the active synthetic steps because the most 
time consuming tasks would be distributed among 
10 multiple and independent manipulating stations. 

Using the above synthesis system, multiple 
peptides are synthesized by manipulating the syringes 
so as to repeatably attach during a synthetic cycle a 

15 desired amino acid to the solid support. Those 

skilled in the art will note that there is neither a 
physical link, such as txjbing and valves, between the 
reagent vessels and the reaction vessels nor between 
the mixing chambers and the reaction vessels. As 

20 such, different reagents and reaction conditions may 
be used within the same or different peptide 
synthesis . 



Each synthetic cycle consists of the following 
25 sequence of basic operations or steps: washing, adding 
deprotection reagents, deprotection, adding coupling 
reagents, and coupling. Judiciously combining 
synthetic cycles, each coupling a desired amino acid, 
creates a synthesis protocol for the synthesis of the 
30 desired peptide. Only three of the above synthetic 
steps, washing, adding deprotection reagents and 
adding coupling reagents, however, directly require 
the use of robot system 20. These steps are referred 
herein to as "active synthetic steps, « although 
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chemically passive, and are discussed in more detail 
below. 



During washing, robot system 20 positions a 
5 selected resin syringe from rack 40, a tumbler 120 or 
holding position 125 and then dispenses any liquid 
therein into liquid waste 130. A preprogrammed amount 
of washing liquid is subsequently delivered to first 
cup 100 using piston pump system 90 and then aspirated 
10 together with a preprogrammed amount of air using the 
selected res ir . syringe. Robot system 20 finally then 
shakes the selected resin syringe for a preprogrammed 
time to ensure efficient mixing, 

15 Adding deprotection reagents similarly requires 

the use of robot system 20. Robot system 20 positions 
the desired resin syringe over liquid waste 13 0 and 
dispenses any liquid therein. A preprogrammed amount 
of deprotection mixture is subsequently delivered to 

20 second cup 110 and then aspirated together with a 

preprogrammed amotint of air using the selected resin 
syringe . 

Lastly, adding coupling reagents also requires 
25 the use of robot system 20. Robot system 20 positions 
the selected resin syringe in holding position 125. 
Robot system 20 then selects and positions a selected 
amino acid syringe, dispensing a predetermined amount 
of desired amino acid into first cup 100. The 
30 selected amino acid syringe is repositioned in rack 
40. A preprogrammed amount of activating agents is 
then delivered to first cup 100 and aspirated together 
with a preprogrammed amount of air using the selected 
resin syringe located in holding position 125, That 
35 selected resin syringe is then positioned into tumbler 
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120. Next, robot system 20 dispenses a preprogrammed 
amount of washing solvent into first cup 100 which is 
then aspirated- Typically, the latter steps of 
tumbling and washing are repeated a number of times, 
5 preferably three times. 

During deprotection and coupling, the syringes 
are placed on 2.5 ml or 10. 0 ml tumbling racks 120, 
each of which holds up to 18 syringes, to ensure an 
10 efficient mixing. 

In order to better understand the timing protocol 
that allows the handling of multiple synthetic tasks 
more efficiently, a discussion of the underlying basis 
15 for the timing protocol would be instructive, 

particularly with reference to the flow charts of 
Pigs. 2A and 2B. 

To begin with, the user enters the sequence of 
20 compounds to be synthesized. And, if the necessary 
reagents are available, the system will start to 
initiate a desired synthesis - otherwise, the user is 
notified of the deficiencies. More particularly, for 
each desired synthesis, the system determines the 
25 particular synthetic steps, both active and passive, 
that are required to synthesize the sequence as well 
as determines when those synthetic steps are to be 
performed - that is, their timing or temporal 
relationship within the synthetic cycle. 

3D 

Those skilled in the art will readily note that 
these synthetic steps are sequence specific, that is 
they are specifically correlated* to the desired 
synthesis- Herein, these synthesis steps are referred 
35 to as a "sequence specific timing protocol." In 
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20 



25 



30 



considering to initiate a new synthesis, the "sequence 
specific timing protocol" of the new desired synthesis 
is compared to the sequence specific steps or timing 
protocol for those sequences already initiated. These 
latter sequence specific steps are referred to as a 
"cumulative remaining timing protocol" because they 
are a compilation of all the individual "sequence 
specific timing protocols" of currently initiated 
syntheses . 



More particularly, the above comparieoi: requires 
the system to plot out when the active synthetic steps 
of the new desired synthesis occur with respect to the 
active synthetic steps of the sequences currently 
15 being synthesized. And, unless there is a timing 

conflict in performing the active synthetic steps of 
the new desired synthesis and those already initiated, 
the system begins to initiate the start of the new 
synthesis, if necessary reagents are available, it 
should be understood that the new sequence specific 
timing protocol of the desired new synthesis is added 
to the "cumulative remaining timing protocol." 



Should, however, a timing conflict exist, the 
system attempts to determine if the initiation of the 
new desired synthesis can be delayed or "time 
shifted", up and until the start of the next active 
synthetic step of any of the initiated syntheses, so 
as to eliminate the timing conflict. Unless the 
system is able to resolve the timing conflict, the 
system will not initiate the new desired synthesis, 
but will instead proceed to execute the next required 
active synthetic step of the syntheses currently in 
progress. Once the active synthetic step has been 
35 performed, the system updates the "cumulative 
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remaining timing protocol" and then attempts again to 
resolve the timing conflict during the next passive 
synthetic step of any of the ongoing syntheses. This 
timing protocol is repeatably performed until all the 
5 desired syntheses have been initiated. 

Below is an illustrative description of the 
synthetic steps for the simultaneous synthesis of 
multiple peptides in accordance with the principles of 

10 the timing protocol discussed above. It should be 

recalled that each synthetic protocol in the multiple 
synthesis is a sequenced cycle order of pre-programmed 
steps or procedures. For this illustrative 
description, one synthetic cycle consists of the 

15 following synthetic steps: (i) washing the resin three 
times with dimethylf ormamide (DMP) for thirty (30) 
seconds each time; (ii) deprotecting the amino acid 
with fifty percent (50%) solution of piperi dine /DMP 
for ten (10) minutes; (iii) washing the resin five (5) 

20 times with dimethylf ormamide (DMP) for thirty (30) 
seconds each time; and (iv) two (2) hour coupling 
using three (3) molar excess of DIC/HOBt activated 
Pmoc protected amino acids. 

25 After finishing the last synthetic cycle for each 

peptide, the synthesis is finished by washing, or by 
washing, deprotecting and washing, if that is 
applicable. 

30 Robot system 30 operating in accordance with the 

above illustrative synthetic cycle positions a first 
resin syringe (peptide synthesis no. 1), manipulates 
the plunger to aspirate a wash solution of 
dimethylf ormamide (DMP) , and then shakes the resin 

35 syringe. This washes the resin with wash solution for 
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thirty (30) seconds. Preferably, the washing is 
repeated three times. Subsequently, the first resin 
syringe is used to aspirate from the delivery cup the 
deprotection reagents that have been dispensed by the 
5 piston pump. This latter step is the "adding 

deprotection reagents" step. This repeated washing 
and adding deprotection reagents takes about five (5) 
minutes . 



10 During deprotection. which lasts about ten (lO) 

minutes, the synthesis system can advantageously 
direct the robot system to initiate washing and adding 
deprotection reagents for a second resin syringe or 
the next peptide synthesis (peptide synthesis no. 2). 

IS Since that washing and adding deprotection reagents, 
however, only takes less than five minutes, there are 
at least five minutes still remaining before the 
deprotection is completed for the first resin syringe. 
To ensure that the respite time between steps is 

20 minimized, the synthesis system further directs the 
robot system to initiate yet another washing and 
adding deprotection reagents for a third resin syringe 
(peptide synthesis no. 3). 

25 Determining whether to initiate another washing 

and adding deprotection reagents for a subsequent 
resin syringe (the next peptide synthesis) is 
controlled automatically under program control by 
comparing the sequence specific timing protocol with 

30 the cumulative remaining timing protocol, as discussed 
above. In effect, washing and adding deprotection 
agents are initiated if the least remaining time for 
deprotection is sufficiently long to con^lete the 
task. 

35 
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Once deprotection has been completed for the 
first resin syringe, the synthesis system directs the 
robot system to position the first resin syringe so as 
to wash the resin for thirty seconds with 
5 dimethyl formamide (DMF) . This is repeated. 

preferably, five times, after which the resin syringe 
is positioned in a temporary holding location. The 
amino acid syringe containing the desired amino acid 
to be coupled is next positioned and a preprogrammed 

10 amount dispensed into the delivery cup which then 

receives a DIC solution. The first resin syringe is 
used to aspirate from the delivery cup the amino acid 
solution so as to couple that amino acid. This latter 
step is the "adding coupling reagents" step. 

15 Likewise, the time for washing and adding coupling 
reagents takes about five (5) minutes. During that 
coupling, the synthesis system advantageously directs 
the robot system to initiate coupling for the second 
resin syringe (peptide synthesis no. 2), and then 

20 subsequently for the third resin syringe (peptide 
synthesis no. 3) . 

Similarly, determining whether to initiate 
another washing and add coupling reagents for a 

25 subsequent resin syringe or peptide synthesis is 
controlled automatically under program control by 
comparing the sequence specific timing protocol with 
the cumulative remaining timing protocol, as discussed 
above. In effect, washing and adding coupling 

30 reagents are initiated if the least remaining time for 
coupling is sufficiently long to con^lete the task. 



Once coupling has been initialized for all three 
resin syringes, that is the three peptide syntheses, 
35 the synthesis system takes a fourth resin syringe 
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, (peptide synthesis no. 4) and initiatea washing and 
deprotection. The synthesis system initiates washing 
and deprotection for as many resin syringes (peptide 
syntheses) as possible before the least remaining 
5 coupling time expires. 

This procedure is repeated until the sequence of 
.the shortest length peptide is assembled. if desired 
an additional resin syringe can then be used to 
10 synthesize a new peptide sequence. 

The maximum amount of peptide synthesized is 
limited by the size of the syringe. Por exan^le. with 
10 ml syringes containing about 500 mg of resin (0.5 
15 mmol/g resin), it is anticipated that 0.25 mmol of 
peptide (ca 300 mg crude decapeptide) can be 
synthesized. 

above^i^'r "'"''"'^ '"^^ i» the 

above Illustrative description that the coupling time 

for each peptide synthesis is the same - the earliest 

initiated coupling finishing prior to subsequently 

initiated couplings. i„ that situation, each new 

initiated synthetic cycle for a peptide synthesis 

follows the order in which the prior cycle was 

initiated, of course, it should be understood that 

different coupling times, if that is desired, may be 

used. The principles of the timing protocol, however, 

do not change - the system, if time permits, initiates 

durinrrn ''"^ °' "^""^ ^^^^'^^ -^thesis 

during the passive steps of the prior peptide 

synthesis. 



20 
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A program listing implementing the principles of 
the invention, including the timing protocol, is 
contained in the microfiche appendix « 

5 Referring to Pig. 3, there is illustrated the 

timing protocol or timing relationship between 
washing, adding deprotection reagents, deprotection, 
adding coupling reagents and coupling for the multiple 
synthesis of twelve peptides using the above described 

10 solid phase peptide synthetic protocol. Those skilled 
in the art will readily note based on the discussion 
above that during passive synthetic steps 
(deprotection and coupling) , active synthetic steps in 
the synthetic cycles of the next peptide synthesis are 

15 concurrently initiated with the prior peptide 

synthesis. For example, referring to Pig. 3, during 
deprotection of the first peptide synthesis (peptide 
synthesis no. 1), washing and adding deprotection 
reagents is initiated for the second and third peptide 
20 syntheses (peptide synthesis nos. 2 and 3). 

It should be understood that prior to initiating 
the synthesis of each compound, various parameter 
variables must be specified, in the synthetic protocol 

25 of each desired peptide synthesis, including the kind 
and amount of solvent or reagents to be dispensed, and 
the length of time of the corresponding washing steps 
and/or reaction steps. Also, because aspiration is 
performed in adding deprotection reagents and adding 

30 coupling reagents, the volume of air necessary to 

enable the efficient mixing of the resin and solvent 
must be specified. 

In addition to the various parameter variables 
35 which must be specified or retrieved from existing 
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stored synthetic protocols, the synthesis system must 
also be initialized with other information, including 
the assignment and identification of solvents and 
reagents contained in the peptide synthetic protocols; 
5 the reagent and amino acid concentrations (mmol/ml) 
used to calculate the corresponding reagent and amino 
acid solution volumes, respectively; the size of the 
syringes; the amount of resin in the syringes; the 
substitution of resin in mraol/g; the positions and 

10 content of each amino acid syringe, preferably 

identified by a three to five letter code, including 
its concentration and available volume; the peptide 
sequences desired to be synthesized using the 
identifying three to five letter codes; and for each 

15 peptide its identifying code, and sequence. 

Preferably, the system prompts the user for the 
information. Alternatively, however, this information 
may be entered prior to initiating the peptide 
syntheses or stored in a file or database. 

20 

The order in which sequences to be synthesized 
are entered establishes their priority for synthesis, 
and establishes a synthesis queue. Advantageously, 
any compound can be entered with any priority. Also, 
25 additional sequences can be added to the synthesis 

queue together with the necessary synthetic protocol. 
Also, additional reagents may be added, if necessary. 

From the above information, the system calculates 
30 whether the amount of amino acid and reagents is 

sufficient to prepare all the peptides. Unless there 
is enough amino acid and reagents available for the 
synthesis, the synthesis system will not initiate that 
synthesis, indicating instead its status as "not 
35 ready." Significantly, the above timing protocol 
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allows hsmdling multiple synthetic tasks efficiently 
since active synthetic steps requiring the use of the 
robot system in the synthesis cycles of multiple 
peptides are performed concurrently with passive 
5 synthetic steps in different synthetic cycles. 
Moreover, because synthesis resources become 
immediately available with each completed synthesis, a 
new peptide synthesis can be initiated without waiting 
for the complete synthesis of the entire set of 

10 desired peptides. PrefersUt>ly, the new peptide 

synthesis is taken from the top of a waiting list of 
peptides that has been prioritized according to need. 
Advantageously, that prioritized waiting list can be 
changed at any time« either by adding or deleting any 

15 peptide, to meet varying situations. Further, any 
peptide currently being synthesized can be halted 
without affecting the synthesis of the others. 

Advantageously, since there is neither a physical 
20 link between the reagent vessels and the reaction 
vessels nor between the mixing chambers and the 
reaction vessels, different reagents and reaction 
conditions may be used within the same or different 
peptide synthesis. Such flexibility, of course, 
25 allows for the synthesis of libraries requiring 
variable numbers of building block reagents. 

To test the reliability and throughput of the 
above novel peptide synthesis system, five different 

30 peptide amides (IKRKR, VRYGI, AAA6Y, FPRGR, VYFAW) 
were synthesized using a RAM TentaGel resin in 
accordance with the principles of the invention. 
Also, a mixture K (82.5% trif luoroacetic acid, 5% p- 
cresol, 5% thioanisole, 2.5% ethanedithiol and 5% 

35 water) was used to deprotect side chains and to cleave 
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the peptides from the resin. Results from that 
experimental practice indicate, a high degree of 
purity of the crude material based on analytical 
gradient HPLC traces and molecular peak analysis using 
5 mass spectroscopy. 

It is understood that various other modifications 
will also be readily apparent to those skilled in the 
art without departing from the scope and spirit of the 
10 invention. For example, the principles of the 

invention can be equally applied to any chemistry that 
involves repeated procedures, such as washing, 
deprotection and coupling - particularly, solid phase 
synthesis, including but not limited to the organic 
15 reactions described in Borchardt et al . , j. Am. rt^^ n,, 
Sa^. 116: 373 (1994); Chen et al . , J. Am. rh^,n 
116: 2661 (1994); Simon et al., ESh^, 89: 9367 (1992); 
Nikolaiev et al., P^t, l^gp.,, c- 161.70 (1993); and 
Lebl et al.. Vol. 5: 541-548, T^ghnAcP^fff Tn Pror^jj 
£llsmiS£jC2C, Academic Press, San Diego (1994) . 

Accordingly, it is not intended that the scope 
of the claims appended hereto be limited to the 
description set forth herein, but rather that the 
25 claims be construed as encompassing all the features 
of the patentable novelty that reside in the present 
invention, including all features that would be 
treated as equivalents thereof by those skilled in the 
art to which this invention pertains 

30 
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Procedure : AtOXO 

A^or^ :* current: values of asino acid volumes 



disableJceys 

filenew 2 ,«t:eap.prt« 

If (nam codes) 

mSl^i^^iiSI ^"-^^ Avail code 

while (a mm codes £& a <• 50) 

tf (a^SO <« num codes) 

ari^SrrSi «.ilf ts.llf %aallsl:^code$(a+50l,aali5t req(ai.50 

endif 

if (a-t-ioo <« nua^codes) 

af-^irrSI ^'^'-^^-^^ «.ilf ts.llf -,aalist_code$(a+ioo),aalist reqfa^l 
endif " 
if (ai^iso nuB^eodes) 

strlng£or«at b$,"%4,38 %5.11f *S.llf-,aalist:^codeSCa*l50] ,aalist req(a+150 
ndif 

-Aiawriteline 2,aS 
a • a X 
endvhile 

else^**^^^^^^"*" 2 rasciiS (12) ♦-Available taino Acid Anounts- 
endif 2 1 -Available Amino Acid Amounts" 
filevriteline 2,«" 

f " ^ 2.5 «1 syringe 

fll.«riteil«a 2.-Pos cod. Cone Vol Pos Cocte Cone Voi Po. Code Cone Vol Po 

wbile (a <•• 50) 
a$ - 

5|rin9for»«t bS.-%3.oir U.2s »4.iif w.iif ».a,ecid_codeS[.] ..cid.co«c(aJ ,.c 
n^i^rrSs *^-=>» -,.*50.-cid_codeSCa*50l,acid_co„ 

afiirrSi «»S.-»3.01f *4.3s *4.11f »4.Uf -,a.acid_code$ta*lOO).acid_conc(a 

afi'irrtl *4.11f-.a*50.acid.eodeSCa-H5PJ,aoid conc[ 
rilawril:eline 2,a$ 

* " a •♦• 1 - . 

entf~nil« Copyright, 1994, 199S 
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f iXeelose ^ 
eaablekeys 
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Procedure ; akxno 

Si2?~" • operator to change amino acids 



local «#bf a$.b$, lastcodcrow,startindcx,sel_row 
dieableJceys 

SLS? siS'ih2!r*^e.ni2;e"trrS* 

setnuaarray code_color(l] ,15,-1 
wtiile (a <• nua^eodes) 

* «allst_avail[a]) 
code_eolor(a] -14 
endif • i J 

a • a + 1 

endvhile 

a f*i^ ^'^^ showing all codes 
vhlle (a <e 100) 

code_index[a] « a 

code_indexCa'i-100] ■> a 

a a <f 1 
endvhile 
code_row - 0 
lasteoderov m 0 

te* TOW m 0 
tei.^col • 0 
nizB^ten - 100 
tvQ^row • o 
two^col • o 
nuni^tvo « 100 

Lv^^^f^Sf*^.***^ 90 back to it 

savevars 1,« tapaaino.dat* 
savevars 2r«tBpeode8.dat" 

screenon "amino* 
enablekeys 
user^choice « 0 

while (user^choice J- -i) 
if (user^choiee — i) 
call aminoprt.tcl 
uaer_choice • 0 
eleeif (user choice — 2) 

; Clear all amino acid values 

i? dSSr-Soicer^*" ^""^ ^"^^ clear \nall amino data?- 

setstrlngarray acid code$[ii , ,200 
setnumarray acid coHc(ij , ojio 
setnumarrey aoid"availci3 ,0,200 
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calc^needed i ^ , 

endif 

user choice • o 
eXMif Tuaer^ehoice — 5> 

ask ti8er_choiee, "Cancel changes te amino rack?** 
if (user^choiee) 

; ReteTeve ^eaporazy data 

loadvars 1, "taiyaaino.dat** 

loadvars 2 , ■"tnpcpdes.dat" 

screenback ' 

stop 
endif 

luer.choice « o 
elseif*(code row 1* lasteoderov) 
; show a subset of the codes 
disabXeJceys 
sereenhoXd 
if (ccde^row — • O) 
; shov'^all codes 
a • 1 

while (a <" 100) 

code_indexCaJ " a 

code_index(a'flOO] -> a 

a a -I- 1 
endwhile 
nun^ten » lOO 
nuB^two ■ 100 
else "* 

; Only show the locations for the codes selected 
a$ - aalist code$Ccode row] 

; Search through the 10 ml array and find ones that natch 
ni2m_ten « o 
startlndex ^ 0 

sarrayfind startindex^acid code$ ( start index^x ] ,a$ 
%ihiXe (startiindex !« -X &«~startindex <» XOO) 

num^ten — nua^ten + X 

code_indexCnua ten] » startindex 

sarrayfind startindex, acid code$(startindex-M} «a$ 
endwhile * 

; Search through the 2.5 ml array and find ones that match 
nuB__tvo as o 
startindex ^ 100 

sarrayfind startindex, acid code$(8tartindex'«-l) «a$ 
while (startindex J- -1) 

code_index(numjtwo4-ioi] » startindex 100 

num^two m nam cwo t' 1 

sarrayfind startindex, acid code$(startindex-<-l] ,a$ 
endwhile 
endif 

lastcoderow — code row 
updatetable • 
screenupdate 
enablekeys 
elseif (ten^row 1 1 two row) 
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; Change amino acid 
diaahlekays 

; Figure out which amino aci4 rack 
\t (ten_rov) 

^^■•^-^'w - code_index(ten_row) 

endif"''^*^ " code_index(tvo_row ♦ looj + loo 
show ael^row 
tcn^row • 0 
two'^row - 0 
if Tfast_fiii) 

syringe to the full amount 
ir (acid codes (sel row] »« •••) 

endif^-*''^^^^*^^-"*'* - 2.5 + 7.5*(6el_row<-xoo) 
else 

; allow the user to set any of the values 
ir <sel_row <» loo) 

elM " "^"^^^^ »^ position " + numtostr$(»el_row) ♦ 

endif" "^'^^^.s ml rack, position * + numtostr$(6el_row-ioo} + ") 

a5^«^acircoS2tTse/roSr"^^''' '^""^ '^'^ concentration fro» similar code 

inputs tring a5,-EntSr the code:"+b$ 

ir (a$ im acid code$(8el rowll 

acid_codeS(sel_row) « a$ 

fS'^^y^^"? start index, acid code$[i],a$ 
if (start index — sel row)"* ''i 

endijT*^^^** start indSx , acid^codeS { startindox*! J , a$ 
if (startindex i« -i) 

else^'*-"'**^^**^-^®*'^ ■ *cid_conc(startindeie) 

**=^**_"»*c(sel row] « .i 
endif ~ 

acid_avail[sel_rowj - o 
endif 

* ■ «cid_concCsol row] 

Inputnua a,-Entcr"the concentration: -♦b$ 

"siL^InS^iVr"^"'-'^^"^^ 

acid_concCstertindex] « a 
«nSS5l^*^"** «^a"in«»«racid_codeS(startindex-M] ,a$ 
andif 
a - -1 

° 'Iw * 7. 5* (sex row<.ioo))) 

a - acid_avail(s«l row) ' 
inputnum a, -Enter the available volume: "4-b$ 

ii*,^*,^ ** * <- (2-3 ♦ 7.S*(sel^row<-400))) 
if (a Im acid^availfsel row)) 
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^3/' 

.cid.avail(6el rc»v) « a 
endif 
else 

telXalara "Mie volume must be between 0 and " + nuato8tr$(2.s -f 7.5* 
endlx 
endvbile 
endif 

updatetable 
screenupdate 
eaablekeys 
endif 
endvhile 



savevars 1, aaino.dat" 
savevars a^^eodes.dat* 
screenbaclc 
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Procedure: BREAKSEQ 

Purpose : bleaks sequence imo ixidividual codes 

Author :M]B 

Notes : Input - bs_seq$ 

Output— couplmgs = U of cmipKn gg 

codeS[coupIings] " individual codes in sequence 
bs^enor » 1 if error, 0 IfvaEd sequence 



local charS^len,pos»8,b 

seqlen = strien(bs_seq$) 
pos« 1 
couplings « 0 
bsjeiror = 0 

setstringarray codeStlj/Vl 

// Break sequence string into peptide codes a»»ss> 
while (pos<=seqlen) 

charS » midS(bsj5eqS.pos,l) 

if(isaltalnuin(diarS)) 

GodeS[couplings+l] « code$[coupIii^l] + charS 
ebcif(char$=".-) 

if(str!en(codeS[oottpfingrHl])) 
couplings » couplings 1 

endif 
else 

bsjerror* 1 
stop 
endif 

pOS»pOS-i- 1 

eodwhOe 

if(strien(codeS[oouplings^l])) 
couplings » coupfipgs 1 
endif 

//Flip sequence around =««=a«=ax=======a^^ 

a« I 

"wbSic (a<«coupIings) 

flipcodeS[a] » oodeS[a] 

a-a+1 
endiKittle 
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b - couplings 

whfle (a<=coupIings) 
codeS[a] = flipcodeS[b] 

b«b-l 
endwiule 
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I tath^ ; iSsTcES** "fl"***"* «««» «v»iXable voXumu 

local «yringe,curmiao,carprocess,cursequence$,^ 

timer xsytlne 

disBblekeys 

sysBS9$ « -Waiting for robot...- 
screenupdate 

stringrsquest "USING SYRINGES" 

Bcraenupdate 
nnai_ead«8 " o 

Mtitringarray aallst: eode$roi »« -i 
setnuurray a«Xl« reitoTro,-! ' 
s«einiaHu«.^y aallBt-aviiacoi.o,-! 

setaiuucray sol req(ij,o,i£ 

syruige - i - 

wbll* (syria9« <- n«a.Byritt9M8) 

SSS^^pSai?^*^'""' t'y'i"^. -*nu«t«tr$(syringe)+-,..,- 

^^iL^2S"bJSj! ^' ^* -"i^™"* • location or it 

"•'SS-iSf^***"^'*! H Wjrocesstsyringel > i) 

sSr^t^irS:«n'S.S£5'* «yrin^'s'cd,re„l status or to tha 
i« (eyr_proc«««(ayringa] > i) 

^^aalno - »yr.«id«o_ste^tsyriS,4j 

curproeesa ■» 3 
curaaine ~ 1 

sequences - syr_s«quence$ (syringe 1 

bttF_short — 0 

; Fl^ tha aaiao acid coda 

«n^raLc2^TS3^*"'*f*^^"J 

^F- " ;^%TteS«' '-'^ 

«»ile (<prot_proctcurproca.ai «- stap.finished) «4 (curprocass < nimjrocs)) 
•»Mw -step: - + prot_stapS[prot_proclcHt:^ea8j } 
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^ ; Plxw ft&lno voluma jreipiired 
'BA^procafis • curprooess 

aa_a]&lxio$ « eode$(euraaino] 

aa syringe » syrlaga 

caXX caleaa.tel 

; Find solution and buffer volume 
buf^process - curprooess 

syringe - syringe 
call calcbuf.tcl 

; Oeternine which step is next 
stringrequest "NEXT STEP" 
ns^roeass » curprocaas 
ns^aaino <■ curaaino 
ns^dodepS - curdodepS 
call neactstep.tcl 
curprocesB ns^rocess 
curamino * ns aaino 
stringf rae "NEXT STEP" 

andwhile 

; Is there enough aa and buf for syringe to be processed? 
if (aa^short | | buf short | 

calc^needed • i " 

if (syr^procassc syringe] «« 1) 
syrjprocess( syringe) - o 

elseif (syr_proces&( syringe] > i) 

^^^llalam "Syringe # ««*^nuatostr$( syringe) ^" is in process\nbut will nqt h 

elseif (8yr_proce8s( syringe] «- o) 

syr_preees8C syringe] • i 
endlf 

eadif 

syringe - syringe + i 
sndvhile 

sy8Bsg$ « 
updatetable 
screenupdate 
anablekeys 

show "calc took ♦ nuatostrS ( elapsed (ayti&e)) 
stringfrae "DSINC SYXaNGES" 
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^36 ~ ^ 

Procedure CAIiCAJk ' • «. 

Purpose : Calculate requixed aaino acid tor a seep 
Author : KJB^CES 
Holies : Znpa^: aa^process 
aa^aalnoS 

M jhSrt^*— set if the avail is less than rocjaired 
locaX c^index , rt^index , teapaffiount 

if (prot_stepS£prot__proc[aa_j5rocoasl] — **Kdd Coupl.") 

; Find the code in the -required" list, insert it if it isn't there 
sarrayfind c index, aalist code$(l] r&a.aAino$ 
if (c.index — -i) " 

nua^codes v nu&^codee <4> x 

aalIst_code$(nta^code8} • aa^amino$ 

c index ■> num codes 

;~Kow find tb^? code in the KT racks and find the avaUable volune 
sarrayfind rt ii^'leXfacid code$(ll ,aa_aaino$ 
%rtiile (rt index !- -1) * 

; Find the total anount of aaino acid .„««ir^ inrtAiri 

aalist avaiicnua codes) - aalist_avail(nutt_codes) + acxd_availCrt_lndex] 

aalis^^conc(nuB codes) « acid_conc(rt_index) 

sarrayfind rt_index , acid_code§ [ rt_index+l ) , aa_a»ino$ 
endvhile ~ 
c index nun codes 
r ^If 

, Aeteraine tihe volume required 

if (aalist conc(c index]) , , . 

teapaaount: - syr.re»inCea_syringe] * syr^sutostCaa^syringe) * prot_vol(aajro 

teapaaount « teapaaount / aalist_conc(c_xndex) 

aalist:_reqtc_index] - aalist_reqlc_index] + teapaaount 
•ise 

aalist^avail[c_index] " -1 
aalist^'reqlc index) — 0 
endif ~ 

if (aallst_req(c_index] > aaXist_avail(c_index)) 

aa^short"- 1 ~ 
endif 

endif 
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^1^^ 

Procediure ' : caiScs^ 

Purpose : Calculate the required buffer solutions 

Author : KJB,CES 

Motes : Input: huf^proeess 

but syringe ^ ' 

buf^short — set if avail is less than required 



local teBp$,sol^index 

teBp$ B prot step$[prot proc(bttf process]} 

if {^jsap% l«"«Add couplt" teapS !- "Wash" fi& tempS I- "Add Deprot.") 

stop 
endif 

s&rrayfind sol_index,conteRts$Cll #prot bufSCbuf jprocess] 
if (sol Index — •!) " 

sysa8i$ - "Could not find buffer solution: "+prot_buf$Cbuf_process) 

delay 1000 

step 
endif 

if (texnp$ "Wash") 

sol_req(sol index] » sol req[8ol index] + prot_vol(buf_process) 

sol_req(sol~index] » sol^reqtsol^index) + cleaning_aBOunt*3 
elseif (temps »■ "Add Coupl.") "~ . 

sol req[sol index) - sol req(sol index] + {syr_resin(buf_syringeJ*syr_substCbu 
eXseif (temp$"— "Add Deprot.") " 

• \_req(sol_index) « sol_req(sol_index) + prot_voltbuf_process) 
enw -i" *" 

if (sol_req(sol_index] > sol^availCaol^index)) 

buf short ■» 1^ 
endif" 
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; . Procadure: CLEikKCDP 

; Purpose : cXoan eoupXin? cup with solution 

; Author : K7B 



local b 

;£ind cleaning solution 

sarrayflnd clean_buf i.prot step$ ( 1 ] ^ "Wash" 
narrayfind clean^fcsuCa^prot^rocCl] , clean buCl 
earraytlnd clean_tau£,content8$[l] ,prot_buf $telean_buf 2] 

clean^cupjdone * i 

b « 0 

while (bO) 

pdispense cleanin? solution 
it (isiaulate_robot) 

SVRIHGE. dispense clean buC, cleaning anount 
endif 
delay 500 

faspirate cleaning solution, fourth prob is vacuum probe 
if (!simulate_robot) 

SYRIHGE* pipette 4, (cleaning amount * .5) 
endif ~ 
delay SOO 

^ b ♦ 1 
en^ Ule 

SYRINGE. pipette 4,cleaning_aBoiint 
elean^eopjdone » o 



oage 14 



wo 96/22157 



PCTAJS96/01I68 



Procedure: CLEARAXX 

Purpose: clear all syringes froa the systas 
Author: CES 



local choice 

6ysBsg$ ■ 

screenupdate 

clear all^syringes •» 0 

asJc eSoice,**AriB you sure you vant to clear all syringes?" 
if (I choice) 

enablekeys 

stop 

if (next^syringe > 1) 

ask choice, **Are you sure you vant to clear all active syringes? 
if <1 choice) 

enablekeys 

stop 
else 

tell "Please remove All. SYRIHCES froa the ROBOT SYSTBC now," 
endif 

sysBsg^ m "Clearing all syringes* 
endif 

ser«».«nupdate 

; data for a sample 

setstringarray syrjpepcode$[l] , -l 

setstxlngarray syr sequence! [ 2. ] « " " , -1 

setnumarray syr^sizefi] ,10,-1 

setnuaarray syr'^racJcCl] ,0,*l 

setnumarray syr^racJcloc(l] , 0,-1 

setnumarray 8yr~loc(i] , o,-l 

setnumarray syr^gripCi] ,o,-i 

setnuaarray syr^amounttl] ,0,-1 

setnumarray syr^roces8[l] ,0,-1 

setnumarray syr_aBino_step(l) ,0,-1 ; ho Ids current coupling solution 

setnuaarray syr^aaino count(l] , 0,-1 ; holds current coupling solution 

aetauaarray syr^resiafl) r -Sr-l 

setnumarray Byr~8uhst(l) « .45,**! 

setstringarray syr dodeprot$[i] , "K«,-l 

setnuaarray syr^processtiaefl] ,0,-l 

setstringarray syr datotime$[i} ,"*'.-l 

setnuaarray syr 8tatoolor(l] ,0,-1 

syr_pepcode$ [!)"'« "Default" 

num_syringes • o 

next^syringe • i 

carrent_rov « i 

restart index * 0 
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-^0 - 

; Sttt required anlno zero 
iiim^codes « 0. 

setstringarray aallst code$Cll,"*i200 
setauaarray aalisi: reqCl],o,200 
setnuaarray aalisl:*avall [ ij , o , 200 
8«tnu&array aalist_conc(i3 ,0,200 

screenupdate 

savevars 5, -syringes. daf 
savevars 2 codes.dat" 
syfi&sg$ « •<•• 
screenupdate 
enablekeys 
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Procadore: CXAMiLXi 

Purpose: Clear aU syringes fron the system 

Author: C£S 



local choice 

sysBsgS *• 

screenupdate 

clear all_8yringes - o " 

asJc choice, »Are you sure you want to clear all syringes?" 
if (I choice) 

enaoleJceys 

stop 
endif 

if (next_syringe > i) 

ask choice, "Are you sure you want to clear all active syringes?" 
if (1 choice) 

enahlekeys 

stop 
else 

tell "Please reaove Ali SYRINGES from the ROBOT SYSTSf now." 
endif 

sysmsgS - "Clearing all syringes* 
endif 

sex Jiupdate 

; data for a sample 

set str ingarray syr_pepcodeS(l3, "",-1 
setstringarray syr_sequence$(l) , "",-1 
setmimarray syr^sizeCl] , 10,-1 
setmimarray syr_rac)c(ij , o,-i 
setnumarray syr_racJcloc(i) ,o,-l 
setnumarray syr loc(i]^o,-i 
setnuaarray syr^gripCi) , o,-i 
setnuaazxay syr_amount(l] , o,-i 
setnuaarray syrj)roce«s(l] ,o,-l 

s etmim array syr_aBino_step£l] ,0,-l ;holds current coupling solution 

setnumarray syr_anino_count[il,o,-l ;holds current coupling solution 

setnuaarxay syr_resin(ll , .2,»l 

setnuaarray syr_substCl) , .45;-l 

setstringarray syr dodeprot$tl] ,*H", -I 

setnuaarray syr _proceBfitiae[l] ,0,-1 

■•tstringarray syr datatiaeSCl] ,»«,«l 

setnuaarray syr staccolor(li ,0,-1 

syrj>epcode$Cl3"^« "Default" 

num^syringes » o 

neact^syringe - i 

c ur r e nt rov - i 

restart^index - o 
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; S«t ra(}ttlx . A aaino swre 

tttttitriagnrray ^alist^codaS [ 1 1 , * " # 200 
setaiunarz-ay aalist req C X 3 # 0 , 200 
8«t3»aarray aalist^avail ( i ] , o , 200 
setnuBarray aallGt^conc [ i ) , o , 2 00 

scraenupda^e 

savevars 5, ^syringes .dat* 

savavars 2, "codes.dat** 

sysnsg^ • 

screenupda^e 

enablekeys 
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Procedure: cziutACK . ^ 

Purpose : places a zero in rack position 

and current position in grxpper 
Author : KJB 



; clear input rack 

if (syr_loc[current^index)) 

syr loe( current index] - 0 
endiC* 

;set rack to. gripper 
6yr_rack(current_index) « 10 

; clear rack location 
syrjrackloc(current_index3 = 

fsave changed rack varlbles 
savevars 5 «** syr inges.dat** 
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Procedure: couplkc 

Purpose : robot actions for coupling 
Author ; hjb 



local b,buf jlace.infoindex 
inf oindex m i 

7find buffer in reagent table 



jzxna Durrer in reagent table 

sarrayf Ind buf jlace , cantents$ ( l ] , prot^buf $ ( syrjrocess ( current_index) ) 

If^JJS^ 2^5?'* ^ holding racJc if RX syringe in gripper 
(«y^_»e>t(current index)—io) * ^ ^ tnf 

if (syr^sizef current index 1«"lO) 
rack typo - i ' ' 

else * 



rack type * 2 
endif " 
nest » 1 



grip - 8yr_grip(current index) 
call puthold.tel " 
call stopchek.tcl 
eadif 

Lll^i^ fyringe and dispense amino acid 
getting rt ■ 1 
sboir cp^amino$ 



»«r fflhd aracid_code$(i)rCp aaino$ 

iSllo^dSpVacn-n^^'^^^^ 
»"&ino3f ound - 0 ~ 
lino^slace * o 
tile (laalno found) 

eaino^found « ^ ^ ' 



endif 
endvhiltt 



enovtiiitt 

if <aainojpiacB>ioo) 

^*«^-^ocation - rack location - lOO 
rack^type « 4 



rack^type - 3 
endif 

call getrack.tci 
call stopcbek.tel 
grip - I 

if (amino jlace>i00) 

*)rringe - 2 
else 

nrringe - i 
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cndif -''^•^ 

call puthold.tel 
call stiopeheJc.tcl 
grip - 2 
nmt. m 2 

call gechold^tel 
call sropchek.tcl 
cup • 1 

restaxx_info$(inf oindM] « »Add Coup: Began Dispensing " ^ nu»^ostr$ (dsp amou 

savevars 7, " restart.dat" *" 

inf oindex « inf oindex + 1 

dsp amount: « acid avail (amino place) 

call 6yr_dsp*tel 

call stopchek.tel 

rest:ar^_info$(in£oindex] - "Add Coup: Finished Dispensing " Ruatostr$ (dsp a 
savevars 7,"resun:.dat" ~ 
inf oindex « infoindex + 1 

acid^needed - acid needed * acid avail (amino place} 
acid_availCattino_pXacej « o 
savevars 1, "amino.dat" 
grip - 2 
nest - 2 

call puthold.tel 
call stopchelc.tcl 
grip « I 
nest e 2 

call gethold.tcl 
call stopchekotcl 
racJc^location « aaiino^lace 
if (amino_plaee>ioo> 

raOc^location » rack location - 100 

rack^type -4 ~ 
else 

rack type « 3 
endif" 

call putrack.tcl 
call stopchek.tcl 
amino^f ound « O 
vhile'*( I amino^f ound) 

sarrayfind amino_p lace, acid code$C (amino plaee-t-1) ] ,cp amino$ 

if ( ( acid_avail ( amino placeT) 1 1 (aminoplace— 1} ) " 
amino_f ound • 1 

endif 
endvhile 
andwhile 

rack location - anino^place ;do final RT syringe dispense 
if (amino _place>iQO} 

rack^location • rack location - 100 

rack_type - 4 *" 
else 

rack type - 3 
andif " 

call gctrack.tcl 
call stopchek.tcl 
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grip - 1 ' 
IZ (a2&ino_plac«>ioo) 
syringe » 2 

i Inge - l 
endir 
nest - 2 

call puthold.tel 
call stopcheJc.tcl 
grip " 2 
nasr • 2 

call gethold.tcl 
first^pulses » no^or oulses 
call stopchek.tcl 
cup " 1 

dsp^aaount « aeid_needed 

re8ter«_info$[in£oindexl - *'Add Coup: Began Dispensing ** ^ numtoscrS (dsp aaotmt 
savevars 7, "rcstart.dar" " 
in£oindex « infoindex ^ X 
calX syT_jd8p.tex 
calX sropchek.tcX 

acid_avaiX(amino^Xace) « acid avaiX[anino_place) - acid needed 
savevars X, ** amino.dat" ^ " 

res«art_info$C infoindex] • "Add Coup: Finished Dispensing ** * nuauoscrS (dsp amo 

savevars 7, restart. da^** 

infoindex » infoindex -¥ x 

9rip - 2 

nest - 2 

ehec)c_&otor x 

caJ ?uttM>ld,tcX 

cnew_Botor * 0 

caXX stepchek.tcX 

iecond^uXses « motor^uXses 

;cliecX that fXuid was dispensed fron syringe 
if (isiffluXate^robot) 

if ( ( (firit_puXses-S)<second puXses) (second puXse8<(f irs^puXses^S) ) ) 
error_eode « 3 
caXX error. tcX 
endif 
endif 

grip - X 
nest « 2 

^aXX gethoXd.tcX 

^XX stopchsJc.tex 
raelc^Xoca^ion « amino pXace 
if (mno_pXace>XOO) 



racJc_XocaUon ■ rack Xocation - 100 
rack_type -4 " 



eXse 

rack type - 3 
endif 

eaJ" putrack.tcX 
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call supchcx.tiGl 
getting^rt 0 

;diBpensft Imffftr solution « «„ 

raatart_lnfoSCln£oindex3 - "Add Coup: Began Dispensing Buffer 
savevars 7^ ** reatart.dat:** 
infoindex - info Index ^ 1 
cup «■ 1 

sarrayfind a, contentsS ( l] ,prot;_bufS [eyrjrocessC current index) ) 

diap^Miount: - oyr_resin(current_indexj*syr_subst{current.index)*prot_vol[syrjro 

reagent disp - disp^amount *~ 
buf^nuaEer » a 
tottf'aaount » disp_aBOunt 
run^disp buf .tel 

sol_avaiI(a) - 8ol_avail(a) - disp^aaount 
savevars 4 , "reagents. dat" 

^^li^Eo«^-^ -dispense : * + nuBitostr$(disp_amouni:) ^ " nozJtlc: " ^ nuatostrS(a 
call logrobot«tcl 

logrobot$ -solution : - + prot_touf $Csyr_processtcurrcnt_index)3 
call logrobot.tel 
endif 

r8start_info$Cinfoindex) - "Add Coup: Finished Dispensing Buffer" 
savevars 7, "restart.dat- 
iafoindex ■* info index l 

;get RX syringe fron holding rack 
i< (syr_size(current_lndex)~10) 

syringe - 1 
else 

syringe « 2 
endif 
grip «• 2 
nest • 1 

call gathold.tcl 

syr grip (current index) » 2 

call stopcshelc.teX 

;8gueese out solution in syringe . ^ , „ % 1 1 

if ( (syr_8i*e(current_index)— lOt*syr_aBiounttcurrcnt_xndex)>drop_amountX| 1 1 isyr_ 

call waste .tcl ~ ~ 
call stopehelc.tel 
endif 

restart_info$[inf ©index) - "Add Coup: mptied syringe" 
savevars 7 , "restart, dat" 
infoindex « infoindex ^ 1 

; aspirate solution in cup 

restart_info$( infoindex) - "Add Coup: Began Aspirating Solution" 

savevars 7^ "restart.dat" 

infoindex • infoindex ^ l 

asp amount » disp aaount aaino^disp 

air*amount prot2airC»yrjproeess(current_index) ) 

call 8yr_asp,tel " 

call stopchek.tel 
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restart ln£o$[lnfeliidaacl < 
savovars 7,«rft8«an:.da«« 
infoindfix « inf oindeae i 

;c ji cup 

if (isiaulate robot) 

run cleancup.tel 
endif 



"JUM Coup: Finished Asp^ating SoXution* 
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; P^rocedure: DATRACK 

; Poxpose : places a gripper valne in racle position 

; Airchor : HJB 

;-■ I 

;8e^ syringa rack for current index 
8yr_raclctcurreni:_index) - racJc^type 

;elear radc location 

«yr_racJcloc(current_indexl " raOc^location 

;8ave changed racic variables 
savavars "syringes .dat" 
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; Proeedurot: OCLEXE 



local choice, t«ttp,a$,siM$ 

^^till2iSr*Si!??^rP!?*'"?f***^«^*-^o^ step^finifihed && current index — dele 

"^"^^ until-the syringe iS in the tumblers " - '^^^^^ " 

endif 

"aiS^HSicr«?if^n«n^^^ " P^«^Jro«(6yr-P»ces«Cdelete.r«r)] !- step fi 

if (tchoiM) P«P^^<*« " i« progress. \nAre you sure you went to delete pepri 

stop 
endit 

8ysug$ m -Waiting for robot...- 
sereenupdate w. 
stringrequest "USIKG SYKXKGCS** 
»yrjrocess( delete rowi - nue _procs 

ey^rocesiiti»e(deIete_rov) ."iiae nov 
sysBsg^ • — — 

sereenupdate 

ateinSee^^^S ^Ij^S-""'''"* robot wiil ev.ntu.lly taJce 

else 

if (user^choiee — 3) 

•'^?"J-P"c[syrjrocessC delete rowjj -« step finished) 

rtop " ^^^^ Tw^^ this syringe aut«natically. \nPlease allow ROBO 

else 

•ndif '=^®^«^**'-*^« you sure you vent to delete peptide, - ^ syr j>epcodeS(dele 

if ({choice) 

stop 
else 

till^"PiIffS*«I! ^^'^^J^^^^^^'^-^ + -al IWPOT RACK locatio 

«dlf P»»yfiically REKOVE this syringe\n- ^ sizeS nuatos^CsyTloc 

endif 

if^T^^S^^**"**^^®** ^ coBplete.dat file 
"eSS^^?^5g^2^-«^-^«.'- - «^P_finished, 

fileopen 6.-coaplete.dat" 

■f row - delete row 

call syrflia.tcl 

fileclose 6 

stringfree "SYRFILB* 
e'*^if 
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fiYB&8g[$ ■• "Deleting froB list..*" ' 

tflop " delete^rov 

%rhile (teap <« nuB syringes) 

8yr_pepeode$(te^] » syr _j>epcpde$(teBp4-13 
syr 8ize(tttBp] - syr size(teiBp^l} 
syr^loctteap] - 8yr^Toc(te»p+i] 
8yr~8equenee$[teap] « syr Bequenee$[teap^X3 
syr^^ocessCtesp] • Byrjprocess(tafflp+13 
syr^amino stepCteap] - eyr_attino_step[t:einp+ll 
syr^aiziino^countctesp] • syr^aaino^countCteBp+lJ 
syr^resinTteap] - syr_rc8in(teittp+l) 
8yr'*sub8t(te^J * syr 8ub8t[teBp4-l] 
8yr'~aodeprot$[teap) -""syr dodeprot$(tesp^l) 
syr^^ocesstiaeCteap) » syrj^roeesstiaeCteap^-i] 
8yr_datetiae$CteBp] - syr_datotlae$Cteap'H] 
syr^stateolorCteap} - syr^statcolorfteap+l) 
8yr]^aaount:(teBp} syr_affiount[teap4>l] 
syr^gripCteap) - syr_grip(teap+ll 
syr radcitaBp) - syr_raclc(teBp-H) 
syr'raciaoccteiv] - syr^racklocCteap+l] ' 
taap - teap * 1 " 

endvhile 

nuB syringes » nua^syringes - 1 
if Jnext^syringe >''delete^raw) 

next syringe «* next syringe-- 1 
endif " 

endif 

sysBsgS » "Saving data to file..." 

sereenupdate 

if (nua^syringes — O) 

; Set required aaino to sero 

nuB_^cades « O 

setstringarray aalist_code$ ( 1] , , 200 
setnuaarray aaXist^r eg [1], 0,200 
isetntiaarray aalist_avail(l) ,0^200 
setnuaarray aalist_conc( 1] , 0« 200 
savevars Zf^codes.dat" 
endit 

savevars 5, "syringes.dat" 
syflEasg$ • "* 
sereenupdate 
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local buf jiace,infoiiwiejc 
iA£olndex » i 

;find buffer in reagent: table 

•arrayflnd tout-Place,content«$ri),prat.bufStsyrjroce«sC currant: index]] 
jchange to stroke grip * 



syringe 
else 

syringe m 2 
andif 
grip . X 
nest m X 

indexl—ii 

call putnold.tcl - ^ ' 
stopchek.tel 

anaif 

else 

vringe « 2 
a. .if 
grip « 2 
nast m X 

call getbold.tcl 

index! - 2 
stopch.k.tcI ' 

cali wS.te.tcl "'*«y»-"»«»»nt[curTeiit_lnd«ej>drep amoantl) 1 1 fsyr 

^1 .topchelctcl - 

"^s'^fS^^iSJ^t^^i - Oeprot: Emptied syringe- 

UlteiAdex - iiMEoiadex •«- i 

.'diapense buffer 

s"evar8^?f2ri^Sj^?SSt2 " 0*Prot: Started dispensing buffer- 

inf oindex - inf oindex + i 
buf_nu»ber - buf_pii^* 
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bnf ABetuir - bof aBounWdlvisicni factor 

iBndif • • - . . 

von disp buf .tcl 

BoX_avaiXcbuf_^lftce] - sol avail [ bat jplaee} • boi^aBOunt 
savevars 1, ** amino .dat* ~ * 
if (log robot) 

logroEotS « "dispense ; ** nii2iitostr$ (buf_amount) ^ " nozzle: ■* nuBtostrSCbv 
call logrobot*tel 

logrobotS - "solution : " + prot buf $(syrj?roccss(ciirrent^indeic) J 
call logrobot.tcl ^ 
endif 

restart_info$Cinfoindsx] » "Add Oeprot: Finisbed dispensing buffer" 
savevars 7, "restart. dat" 
infoindex - infoindex ♦ i 

; aspirate buffer 

restart info$ ( infoindex ] «> "Add Oeprot: Started aspirating buffer" 
savevars 7 « "restart.dat" 
infoindex « infoindex ^ l 
cup - 2 

it (syr_8ize(eurrent index)e-iO) 

syringe • i 
else 

syringe - • 2 
endif 

asp^^amount «> buf_&mount 

airjBBount » prot air(syr process (current index]] 
if (syringe— 2) ~ 

air^asount - air aaount/ division factor 
endif ~ 
call syr^asp.tcl 
call stopchek.tcl 

restart_info$c infoindex) m "Md Oeprot: Finisbed aspirating buffer" 
savevars 7, "restart.dat" 
infoindex • infoindex ^ l 

; rotate 

rot ti&e " 60*prot time (syr_prace8s( current index]] 
call rotate. tcl " 
call stopebeJc.tcl 
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*Jttpo^| Me» the n«t ttap ,or th. .yringe 



Kotegj current:_lndeic Is the Byriage to work on 

local proeosa 

ProcM" - P«>t_procCayr_proc€»8tcurrent_iadexJJ 
if (proeesB — stop ready) 

syr_aaino_stopicarreiit_iiMiexl - i 

alwaya be true If we got here 
elSr^-^ " n«et_8yr^e ♦ i 

endlf^^"" -Wc errori a«et_syringe updated incorrectly- 
updatatable 



if (deBt_wait) 

^JiBe_now - tlwi_Bai. + prot_robottl«etsyr_procB«»tcHrront_li»dex] J 
^^jUBe_now - elapse<l(0} ~ 

e*ai legrebet.^el 
eiMxz 

if (dent_wait) 

^^tlBe_now - tl.e_now ♦ prot_robotti«ie(8yr_proces8[ current Index]) 
^i»e_««» - eXapaedfO) 

elaeif (process — step addeeupl) 
«irSS?iI„^f^'''--^--*««»t«»rr«.t_iml«c|J 

l~wobot5 - -Add coupling: - ♦ code$tayr.a«l«o:.tep(eurr«>t^i«iax)j 
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it (log s#.«ieeduare) . 
• call'Iogroboc.tel 
endif 

if (dont_wait) 

else^*""**^ " titte^nov prot.robot^iae(8yr jproeessCcurren^.index] ] 

tl&e_ncM# - elapsed (0) 
cndU 

elseif (process — step deprotection 1 1 process — st:ep coupling) 
(syr_racJc(current;_Indexl 1- 5 fc& syr racic[current Index} 1- 6) 
call put^tuffi.tcl ' - I - J i 

logrobot? - -Put Tuffibler\n« 
if (log procedure) 

call Xogrobot.tcl 
endlf 

if (dont^irait) 

elae"*"""^ " * prot:_robotrfeime(syr _proces8(current_lndex) ] 

tiae^nov - elapsed (o) 
endif * ' 

*yrjproceaatiaeCcurxent_index) » tiae now + 60*prot ti&e(syx process r current 
current_index - o " * 

else 

call get_tua.tcl 

logrobotS « "Got Tumbler, overtime — »^numtostr$(ti&e now*syr_proces8tiMrc 
xf (log_procedure) — * — » 

call logrobot.tcl 
endif 

if (dont^vait) 

elso"*-"^ " time_now * prot_robottitte(syr jrocess(current_indexl3 

tiae^nov « elapsed(O) 
endif ^ \ 9 

endif 

elseif (process — step_f inished) 
;dunp off syringe in %faste basket 
logrobotS = prot_step$ [process) 
If (log procedure) 

call logrobot.tcl 
endlf 

call finish. tcl 
;delete syringe from list 
delete_row - current^indcx 
stringfree "USING SYIltNGES'* 
call delete. tcl 

stringrequest -USING SYRINCBS" 
currant index « a 
endif 
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Pneadure: DOKP 

Purpose : drop tinished syringe in basket 
JUitbor s HJB 



if (X09 robot) 

i??T®7®^^ Z "^^P — " + numtostr$ (current index) 
call logrobot.ui " 
endit 

if (slauXate^robot) 

stop 
endif 

request "ROBOT" 

ROBOT. speed sp_fest 

BOBQT.aove "drop" 

BOBOT. speed sp^sXov 

ROBOT, jog B O,o«-drop jog 
ROBOT, finish 

ROBOT* open 
delay 1000 

ROr-T.jog_s o,o,drc^_jo9 
ROBOT. speed sp_med 
free 
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; Procedure: EQUPXKZT 

; • Purpose: Starting proeediire for robot and Hamilton 

Author: KJB 
; , Hotes: 



disableXeys 
initialization • 0 

5ysinit_Dessage$ « "Please Wait..." 
robot^ready - 0 ; set a bit for each question 
syringe^ready - o 
screenon "SYSIKIT" 
if (IsiBulate robot) 

call robhoma.tel 
else 

robot ready » i 
endif " 

if (! robot ready) 

tell "Initialization cancelled*^ 
free 

scr^ftnbadc 
stop 
endif 

;/♦ Prepare Syringe Punp •/ 

if (isijBulate robot) 

call syrinit*tcl 
el? 

.inge ready - i 
endif " 
if (! syringe ready) 

tell "Initialization cancelled" 

free 

screenbadc 
stop 
endif 

Homing Motor ♦/ 
syainit_aessage$ • "Homing Motor* 
JLZ ( I sijsulate_robot ) 
call hemeacr.tcl 
call safemtr.tcl 
endif 

8ysinitjae8sage$ m "« 
^ereenupdate 

tell "Initialization complete" 
initialization - l 
screanbac3c 
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; Procedure: PZhzsb 

i fS?®*® • duapa off finished syringe 

0 ^ Autho r : kjb 

endif - • 

fi^/™^^^??^' 9rip, change if necessary 

if tsyr_rac)c( current index)«-iO) 
If (syr_grip( current index ]»2) 
nest "1 — J # 

grip - a 

if (syr_8ise[eurrent indexl-MlO) 
syringe « i " ' ' 

else 

syringe « 2 

endif 

call puthold.tcl 



®y^-."cJc( current index] - o 
call stopchek.tcl 



1 

grip - 1 

if (syr_si2e( current index}«»>xo) 

syrxnge - i - ' ' 

else 

syringe » 2 
ndif 

wall gethold.tci 
*yr_grip{ current index) » i 
•yr »«'c(current'"indexj » 10 
call stDpcheX.tel 
endif 

LylA^ holding rack, get with move grip 

if f«^^Tr2?'^*^*"?-^"^^^~«il«y^-"=^^Cc^ index), 
if (swsiset current index]— 10) " 

syringe • i ~ ' 

else 

syringe - 2 
endif 
grip - 1 
nest «> 1 
call gethold.tci 
«y«'-9rip(c\urrent_indexj - i 
«yf-.»cJc( current index) • lo 
call stopcheJc.tcI 

eise^ get with nova grip 

if (syr.size (current indexl—io) 
syringe • i — - 



Pftfie 34 



wo 9602157 



PCT/US96/01168 



syringe m 2 
ehdif 

cali getrack.tcX 
oy^_9riptcurrent index) - 1 
syr rBck(ciirTenr''indexl « 10 
call stepcbek.tcl 

endif 

;go to duap 
call duBp.tal 
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; Procedure: GETBOLD 

; Purpose: Get a syringe £roa the holding nest 
; Author: MJB 
* Notes: 



set syringe « 1 for lOal , 2 for 2. Sal 

grip - 1 for move grip , 2 for stroke grip 
^••t - 1 for nest 1, 2 for nest 2 



if (syringe-i-i) 

nek^location •» i 

rack typo - 8 
else " 

rack_location « i 

rack^type - 9 
endif 

local get^repeat 
9et:_repeBt » o 
if (log_robot) 

cSS*'lSSobot?lS'*" ~ ^^^^^ * nu»tostr5 (syringe) + " grip : - ♦ nuntost 
endlf 

if .^iaulate robot) 

if (! getting rt) 
call clrracJc.tel 

endif 

stop 
endlf 

request "ROBOT" 
•yiPingejreseiit - i 

vhlle ((!syringe_present)H(!get_repeat)) 

; if (gat repeat) 

call puthold.tcl 
; endif 

ROBOT. open 
delay 500 

ROBOT. speed sp^fast 

it (grip! -2) 

; ROBOT, neve "aixsafel** 
r^ee 
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ROBOT •<M»v0 .?Blac8a<e2" 
run* hoBaatr.teX 



a$ - -tap« + numtosiar$ (syringe) + * fm»itartr$ (grip) * + nuatostr$ (rf^ 

ROBOT. SDttAd en moH ^ 



ROBOT. Spaed spaaed 

ROBOT. &ove a$ 
ROBOT, finish 



ir ((!syringe_present)fi6(get repeat)) 
^?^r25f? ZJ: CMAHCE THIS <»0E ir hecessary ♦*/ 



call error. tcl 
endlf 

ROBOT. speed sp_slow 

if (grip— 2) 

vhile (I home done) 
endvhile ~ 

aiutif 



a$ « tlw + nuntostrS (syringe) ^ + nutttostr$(grip) * + ntantostr$ (nest 

if (grip«»2) 

ROBOT. speed sp mslow 
endif " 



ROBOT. Bove a a$ 
ROBOT. finish 

if (grip— 2) 

if (syringe— 1) 
direction » o 
^^^motor_steps • syrgl^back 

if (syringe— 2) 

direction o 

aotor_steps • syrg2 back 
endif " 

call strtaatr.tcl 

' . , 

endif 

delay looo 
HOBOT. close 
deXey 500 

(grip— I) 
ROBOT, speed sp^slow 
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^62 - 

ROBOT. 8p«ed up vslow 
ttiidi£ 

I - ^tMp** nuBtosteS (syringe) * nu]Bto8tt>$ (grip) nunrostrS (nesr 

RUBOT.&ova 8 &$ "* 
ROBOT, finish 

; a$ - *<mixsaCe'* + nuate8tr$ (grip) 

ROBOT. speed spotted 
; ROBOT.aove a$ 

call syrjchk.tel ;find syringe 

get^repee^ • getjrepea^ l 
endtfhile 

if (I getting rt) 

syr_grip(;vTurrent_index) - grip 

call cXrraek.tel* 
endif 

free 
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CEIIUICK 

piOc up bottle from any rack and reiairn to safe position 



CrSE OF PROCEDURE; 

before calling this procedure set the variable: 
r^cicjtype o the type of rack 

1 - loal RX 

2 - 2,5ml RX 

3 - 10ml RT 

4 - 2.Sml RT 

5 - 10ml TOM 

6 - 2.Sml TOM 

7 - probe 

rack_location - the location in the rack 

3rip - I 

if (log^robot) 

logro5ot$ = -getraOc ~ rack: • ♦ numtostr$(rack type) ^ ^ loc: « + nuatostrS( 
call logrobot.tcl * 
andlf 

if (simulate_robot) 

if '1 getting rt) 
-all clrrack.tcl 

endif 

stop 
endif 

request "ROBOT" 
^BOr. speed sp^vfast 

if Craek_type-»5) 

titai^con t inue* 0 

vhile (!tuml latched) 

ondvhile ~ 
elseif (rack_type— 6) 

tua2_continue«o 

while (lttim2 latched) 

endvhile ~ 
endif 

ROBOT. open 

found « O 
robot_i - 0 
while (Ifound) 

if (rack^loeation <« robot_i ♦ row_8i2e(rack_type)) 
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if ((raOc^type— 3) | I (raOc type^)) 

ROBOT .move "rack ia« 
•ndif " 

rac)c_teinp$ » rac)c_hi9h$(rac)c_type) ♦ nustostt$(robot_i) 
ROBOT .sove rack teBp$ 
ROBOT, finish ~ 
found » 1 
else 

robot i » robot i l 
endif " 
endvhile 

ROBOT. speed sp^fast 

jog^teap « (tracJc_jogCrack_typeJ*( (row_si2e(rack_type)*robot_i) • rack^Ioeation) 
ROBOT. joint 6, -jog teap — — 

ROBOT. finish 

ROBOT. speed sp slow 

ROBOT, jog B G,^,-rack Jog[rack type) 

ROBOT. finish ^ ^t^i 

delay 500 

ROBOT. close 

delay 500 

ROBOT. speed sp^slow 

ROBOT. jog s 0,0, rack jogfrack type] 

ROBOT. finish " ^ * * 

if (rack_typel«7) 
ROBOT. speed sp fast 

call syr_chk.tcl ;find syringe 

while < isyringejpresent) 

ROBOT. speed spumed 

ROBOT .move "aixsafel** 

ROBOT. move rack teBip$ 

ROBOT. joint 6,-7og temp 

error_code - l /*• CHMIGB THIS CODE IF HECESSARY **/ 

call error. tcl 

ROBOT. open 

delay 200 

ROBOT. finish 

ROBOT. speed sp slow 

ROBOT, jog s 0,0, -rack jogCrack type) 

ROBOT, finish " * 

ROBOT. close 

delay 200 

ROBOT, jog s 0,0, rack jog(rack type] 
call syr chk.tcl " 
endwhile * 
endif 

ROBOT. speed sp^fast 
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if1f 1 getting rt) 
»yf-9rlp(c5rrent Index] - 1 

ent 

if (rack_t:ype»»5) 

tunl_continuo-l 
elself (rack type«i»6) 

tUB2 continue"! 
endir 

free 
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Procedure: GET TDK 
Purpose: get^'syringe froa tumbler 
Autihor: M3B 



rack^type - syr_rac)c( current index) 
racX_location - 8yr_rac)aoe(earrent_index) 

call getraclc.tcl 

syr_9rip( current index] • l 

call stopchek.teX 
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Procedure: HOMEMTR 

Purpose : turn on motor until top sensor is triggered 
Author : MJB 



homejdone « 0 

;tiu:n on motor for baclcward direction 

SHARK. writebit 224,0 
delay 500 

SHARK.writebit 404,1 
SHARK^readbit i^sense^home^a 
testerl = 0 

timer homemtr_time 

while (!a) 

SHARK. readbit i_sense home, a 
if (elapsed (homemtr^tTme) >30) 

;stop motor from homing 
SHARK. writebit 404,0 

;call error routine 
error_code = 4 
call error. tcl 

; stroke motor down 
direction = 1 
motor_steps =20 
call strkmtr.tcl 

/start motor to home again 
SHARK. writebit 224,0 
delay 500 

SHARK. writebit 404,1 
timer homemtr_time 

endif 
endwhile 

home done « 1 
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; Procedure: INIT 

; Purpose : initialize system variables 

Author : MJB 

; Protocol procedure descriptions and parameter mask 

param_buf « 1 

param_vol = 2 

param_air = 4 

param_time = 8 

param_condition =16 

param_robottime = 32 

param_stop = 64 

setstringarray prot_step2 fO] , "",-1 
setnumarray prot choice (0] # 0^-1 
step_notready = ^ 
step^ready = 1 
step^wash = 2 
step^adddeprot = 3 
step^addcoupl « 4 
step_deprotection « 5 
step_coupling =» 6 
step_next amino = 7 
step_stopifnofinaldep = 8 
step_finished = 9 

prot_step$(step_notready] = "Not Ready*' 
prot_step$ (step_readyl = "Ready" 
prot step$ [stepjwash] "Wash" 

prot_choice[stepjMash} = param_buf + param_vol + param^axr + 

param_time -i- par am robot time 

prot step$lstep adHdeprot) = "Add Deprot." 

prot^choicetstep^adddeprotj « paramjjuf + param_vol + param_air + 

param^time + param robottime 

prot step$lstep adHcouplJ = "Add Coupl." 

prot3choice[step_addcoupll = param_buf + param_vol + param^axr + 
param_robottime 

prot_step$ lstep_deprotection] = "Deprotection" 
prot_choicelstep_deprotection] = param_time + param_stop 
prct_step$[step_couplingl = "Coupling" 
prot choicelstep_couplingj = param_time + param_stop 
prot""step$ [step nextamino] « "Next Amino" 
prot3^step$Istep_stopifnofinaldep] "Stop If No Final Dep. 
prot_choice[.step stopifnofinaldep] = param_condition 
prot_step$ [step^finished) - "Finished" 
prot_choice(step_finished) = param_stop 

; Variables to keep track of syringes in system / 
num syringes « 0 ; total number of syringes that have been input 
next_syringe « 1 ; next syringe that will be removed from the 
incoming rack 

getting rt 0 ;flag to tell an RT .syringe is m system 

ciont_do]jiext = 0 ; flag to tell max ntimber of syringes in 
system 
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clear_all_syringes = 0 ; flag to tell robot procedure to clear all 
syringes 

setstringarray restart_inf o$ 1 1 1 , 

; data for a sample 
setstringarray syr_pepcode$ [ 1 J ^ " " , -1 
setstringarray syr_sequence$ (1] , ""^-l 
setnuaiarray syr_size [11 , 10,-1 
setnumarray syr_rack[l] , 0,-1 
setnujnarray syr_rackloc(lJ , 0^-1 
setnumarray syr_loc[l] , 0, -1 
setnumarray syr_^grip[l) / 0, -1 
5etnuxnarray syr_ainount[l] , 0,-1 
setnumarray syr_proc€SS (1] , 0, -1 

setnxamarray syr_amino_step[l] , 0, -1 /holds current coupling 

solution 

setnumarray syr_aiaino_count [1] / 0, -1 /holds current coupling 

solution 

setnumarray syr resin[lj , .a^-l 
setnumarray syr^substfl] r -45,-1 
setstringarray syr dodeprot$ (1] , "N", -1 
setnumarray syr_processtime[l],0,-l 
setnumarray syr_statcolor [11 , 0,-1 
setstringarray syr datetime$ [1 J # -1 
syr_pepcode$[l] = "^Default" 

;// Record structure for amino acids, set once then retrieve from 
disk 

setstringarray acid_code$ [ 1 J , " " , 200 
setnumarray acid cone [1 ] , 0, 200 
setnumarray acid'^avail [11 , 0,200 
fast_fill » 0 

Ntimber of amino acids that appear in sequences 
num^codes = 0 

; Number of steps in current protocol 
num^rocs = 0 

; Robot Speed Variables 
sp_vslow « 5 
sp_mslow =20 
sp_slow = 30 
sp_mod = 50 
sp med = 70 
sp^fast « 90 
sp^yfast « 100 

; Rack Variables 

racks full « 0 /set to keep track of whether or not tumblers are 
full 

rack6_full « 0 

rt_get » 0 /set to RT rack location when RT in system 
rack_type « 1 / 1 = IQml RX syringe 
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row_sizeIl] = 6 
row_size(2] » 6 
row_si2e(3] = 20 
row"size[4] = 20 
row_size(51 = 8 
row_si2e(63 = 8 
row size (7] = 5 
raclE_jog(lJ « 8 
rack_jog(2] « 8 
rack_jog(3] = 8 
rackjogl^j = 8 
rack_jog[5] = 8 
rackjog[6] = 8 
rack jog(7] = 4 
tracFjog[ll - 1 
t rack jog [2 j \ 
track_jog[31 = 1 
track_jjog[41 - 1 
track_jog[5] = 1 
track_jog(6] » 1 
track_jog(71 = 2 
rack_safe$ [1] 
rack2safe$ [2] 
rack_safeS 13) 
rack_safe$ [41 
rack_safe$ [51 
rack3sa£e$ [61 
rack safes [7] 
rack"'high$(ll 
rack"high$[21 
rack"high$[31 
rack_high$[41 
rack hlgh$[5] 
rack^'highS [6] 
racklhigh$[71 



2 = 2.5ml BX syringe 

3 « XOml RT syringe 

4 « 2.5ml RT syringe 

5 = 10ml tumbler 

6 = 2.5ml ttuobler 

7 « probe 

8 =*10ml holding 

9 = 2.5ml holding 

10 = gripper 



.5 
.5 
.5 
.5 
.5 
• 5 

"RXSAFE" 

"RXSAFE" 

"RTSAFE" ■ 

"RTSAFE" 

"TUMSAFE" 

"TUMSAFE" 

••MIXSAFEl'^ 

••RXl " 

"RX2"~" 

"RTl^" 

"RT2"'" 

"tumT 

"T0M2~" 
"PRB ^ 



; / Syringe Variables / 

syringe « 1 ; 1 is 10ml syringe^ 2 is 2.5ml syringe 

teii5>_jog « 8 

; / Cup Variables / 

cup =1 ;1 for.RGPl, 2 for RGP2 

cupjjog « 4 



/ Haste Variables / 
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waste_jog 



; / Finished Peptide Basket Variables / 
dropjog = 8 

; / Check Syringe Presence Variables / 
syringe_sense_iiiiS(ll = "IM^l" 
syringe_sense im$[2] = "IM_2" 
syringe_sense"T>eginl$[ll « "CKB_11" 
syringe^sense^^eginl? [21 = "CKB 12" 
syringe_sense_endlS(lJ « "CKE^ll" 
syringe_sense_endl$t21 = "CKE312" 
5yringe_sense begin2$tl] = "CKB_21" 
syringe_sense3>egin2$(2] '•CKB_22" 
syringe_sense_end2$[ll = "CKE 21" 
syringe_sense_end2$l2) = •'CKE 22" 
syringe_sense iia$(3) = "IM_3" ~ 
syringe_sense'^eginl$[3J = "CKB 13" 
syringe_sense'*endl$[3] =» "CKEJLl" 
syringe_sehse2begin2SI3J « "CKB 23" 
syringe^sense_end2St31 = "CKE_2J" 

; / Shark Inputs / 

s = 24 
a = 0 

; while (s««24lt!a) 
errorof f 

table_position = 1 
system_start =0 
sense_table = 1 
sense_syringe = 2 
sense^press = 3 
sense_home = 4 
sensor latch = 551 
motor_7inish « 225 
sense_tuml = 5 
sense_txam2 = 6 
SHARK, putt able 

table position, system start, sense table, sense syringe, sense_presSr 
ense_nome,sensor_latcE, motor finish, sense t\mT, sense tu&2 

i_system_start « 1 " ^ 

i_sense_table « 2 

i^sense^syringe = 3 

i^sensejpress = 4 

i_sense_home - 5 

i_sensor latch = 6 

i_niotor_rinish = 7 

i_sense_tuml = 8 

i_sense_tum2 = 9 

SHARK, readbit i_system_start, a 

status s 
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/counter inputs 
pulses_counter = 2 
putelapsed 10^pulses_counter 
i_mo to repulses =10 

; if (s==24| |!a) 

tell ••Turn the Selector Switch to ON\nand pull out the 
Emergency Stop button" 
; endif 
;endwhile 

erroron 

; / Shark Outputs / 
o_tuml_start = 220 
o_tum2_start « 221 
o_tuml_claxnp - 222 
o_tuial_latch - 223 
o_grip_dir = 224 
o_g3:ip_pulse ^ 225 
ojbuzzer =226 
o_syringe_locate = 227 
o tum2_clan^ = 240 
o2tuia2_latch = 241 
o_start_counter = 414 
o^clear^counter = 415 
o_clear_sensor = 550 

; / Initialize Shark Outputs/ 
SHARK. writebit o_tuDil_start, 0 
SHARK .writebit o_tum2_start, 0 
SHARK .writebit o_tuml_latch, 0 
SHARK, writebit o_tum2_latch, 0 
SHARK. writebit o_tuml_clamp, 1 
SHARK. writebit o tu]n2_cla]sp, 1 
SHARK. writebit ol^grip^dir. 0 
SHARK. writebit o grip_pulse,0 
SHARK. writebit o3>uzzer,0 

; / Error Variables / 
error = 0 
error_code = 0 
err^syringe^sensor = 2 
err^^syringejpresence « 3 

; / Error Messages / 
error_message$[01 « 
error_message$ [100] = 
error_message$[l] = •'No Syringe Found** 
. error_xaessage$C2] « ••Syringe Sensor Not Reset" 
error_message$(31 = "Syringe Did Not Dispense" 
error_message$(4] "Motor Did Not Home" * 
error_iaessage$[5] « "Top of Syringe Not Found" 
error_message$I1011 = "" 



;up 
;up 
; open 
;off 

; open 
;off 
;o£f 
; open 
;off 
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errorjniessageS [102] - 
error_message$ [103] « 
errorjaessage$(104] = 
errorjmessage$ [105] = 

; / Error Solutions / 
error_solution$(0] = 
error_solution$ [100] = 

^"®^_solutionS[l] = "Place a Syringe in the Space" 
^^^<^^-SoJ-ution$[101] = "Directly Below the Robot Gripper" 
e"".solution$t2] = "Check to Ensure PLC is on" 
error_solution$(102J = "» 

«^oar_solution$t3I ^ "Manually Add Solution" 
error_solution$ [103] « "to RGPl" 
error~solution$[4) = "The Motor will Try to Home" 
error_solution$tl041 = "When Error is Cleared" 
error_solution$[5J « "The Motor will Try to Find Syringe" 
error_solution$[105J « "Top When Error is Cleared" 

; / Alarm Variables / 
alann_time = 1 

initialization « 0 ; set to 1 when equipment initialized 
cxirrent_xndex = o 
simulate - 0 
syrg^done = Q 
running « 0 

rinsing_cup « 0 ;flag for washing cup in coupling 

cleaniMamount = 10 /amount of DMF to clean the cup with 
sysmsg$ « «" ^ 

; / Data Input Variables / 
prot file$ = "" 
regJFile$ = "" 

/Simulate Variables 
stop blinking » 0 
simuXate^robot » 0 
log_robot - 0 
log_j>rocedure « 0 
dontjwait « 0 

/Calibration data 
motor_saf e_step = 70 
syrgl_cal_asp =14,5 
syrg2_cal_asp « 40 
syrgl_cal_dsp « 14.5 
syrg2_cal dsp « 40 
syrgl bacTc = 6 
syrg22back = 5 
drop^amountl = .5 
drop"amount2 = .3 
dspjarop_amountl = .2 
dsp_drop_amount2 « .1 
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unstlcic^amountl » .5 
unstick_amount2 « -1 

/Create robot log file 
filecloseall 
filenew 1, "roblog•dat" 
filecloseall 

stringfree 

robot_running = 0 
shake_ninning = 0 
check^motor = 0 
clean_cup_done = 0 

; load the current variables 

call loadvars.tcl 



Page ISO 



wo 96/22157 



PCTAJS96/01168 



;■ 



; Proeedi^s' msE RT 

; ^Sr! syringes into «he systw. 

local choice, tenp 

nUMcT^* Bequence(s} that vill be inserted 

if (user^choice mm x) 

nuSf^q^^l*'*'®*'"®^ Peptide's code and sequence 

taapcodeSCl) • 
tesp8eq$[i] - »» 

teaipcode$CiK-EntQr the Peptide Code:« 

sequences" 

n^^Srr*S^^^' - - I I teBpseq$£i] - ««, 
endir 

elseif (user^ehoice 2) 

«irsSf ile??S" *^ ^^^'^^ sequences fro» a file 
endix 

if ^n^^^"*?"^ "^"^^ •'"^9*1 rooa for insertion 
1- 1 nua_syringes > lOO) 

nSnsSrf'o"^ naxiaua of - numtostr$(loo-nu»^syring«B| + - syringes can be ad 
end' • 

if^SinSST^'^S)^' cancelled 

tAll ■Mo syringe will be inserted" 
stop 
uidif 

screenupdate 



wtille (taap <• nu&seq) 

if (strlcui(^empcode$r tempi) > 81 
sysBsgS • ^ m $ 

screenupdate 

stop 
endit 

***Tf*?^ ■ t«=P8eq$(teapJ 
call breaJcseq.tcl 
if (bs^crror) 

sysBsg$ « 

screenupdate 

^■ellalam "The sequence, \n" ^ lertS(teapseq$:cteaipj , 200) ♦ -,\nis invalid." 
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^ell '..J syringe vixi hm Ixwarted." 
stop 
endif 

if (<t6trlen(^«mpeoda$ttaap])) || ( i couplings) ) 
syamag^ • 
sereenupdate 

teXXalarn "Codes and sequences cannot be enpty." 
eall "Ho syringe vill be inserted." 
stop 
endir 

8yr_a&ino_count(teBp] - couplings 
teapcountfteap] - couplings 
teap e teap l 
endwbile 

; Insert the sequences into the list of sequences 
8ysnsg$ - "Inserting into list***" 
screenupdate 

teap - nuB^fiyringee-t-nuasaq-fl 
vhile (teap>«currentjrov4iiuBseq} 

syr jpepcode$[teap] - 8yr_pepcode$(teBp*nuBseql 

syr_sise(teap] « syr^sizeCtaap-nuaseq) 

8yr3fac)c[teap] » syr*raek(teap*nQBseq] 

syr^locCteap) • syr^Toe(teap*nuBSeq) 

syr_s equenceS [ teap ) 8yr_sequence$ [ teap--numseq ) 

syr2proce88(tefflp] » syr^roeessCteap-nuaseq) 

syr_aaino_stepCteapj • syr^aaino^steptteap-nuaseq] 

syr]]^aaino3co>int(teap) » 8yrjaaino_cottnt(teap«'nuB8eq) 

syr^resinTteap] — syr^reslnTteap^nuaseq] 

syr^substcteap] syr^eubstcteap-nuaseq] 

8yr_dodepr ot $ ( teap } «~8yr jdodeprot$ [ teap-nuaseq ] 

syr^rocesstiaatteap] - 8yr^roce88tiae[teap*-nuaaeq) 

syrjdatetiae$(teap} « syr datetiae$[teap-nuBseq] 

syr^statcolortteap] * syr^tateolorCteap-nuaseq} 

teap • teap «- i 
endvhile 

teap ■ current^rov 

%rhile (teap current rovfauaaeq^l) 

syrj^pcode$Cteap] •^teapcodeSfteap-currontjrow^l] 
eyr_8eqttence$(teap] « teapseq$tteap-carrentjraiH-i] 
syr_aaijio_count[teap] - teapcountCteap-currSnt_row4-l] 
syr^siseCteapj » 8yr_size[nua syrif^es-fnuaseq-f'T) 
eyr^rack; (tempi ■ O ~ 
syr_loc(teap] • o 
8yrjproce88(teap] - 0 
8yr_aaino_8tep[teap] - 1 

•y^Z^^i'^Tteapj • 8yr_re8in(nua_8yringas'*-nua8eq4-l) 
syr_8ub8t(teap) • syr'~'sub8t(nua*8yringes-«-nuB8eq<4'l] 
8yr2dodaprot$[teap) -""syr dodeprot$Cnua syringes^nuaseq-M) 
syr ^roceasriaecteapj - o"" 

8yr_dBtetiae$tteapj - date$(} 4- - " ♦ tiae$() 
syr_8tatcoior(teap] - syr statcolor(nua syringes^nuaseq+I) 
teap m teap i- i " " 

endMhile 

aua^syriages «■ nua^syringes ^ nuaseq 
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S^SS^t^'"^' dat. to tli....- 

ar^naq9 m mm 
Bc inupdate 
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- 

Prbesaufe: XxuaiVASS ^ 
Purpofio : ImA sysMs variables froB disk ana 

o^her variables accordingly 
Author : MJB,CB$ 



local a 



; Define Variable Groups tor data storage 

; amino acid rack 
clearvargroup l 
addvar I, test filial 
addvar l , acid^code^ [ 1 ) , 200 
addvar 1 ^ eeid'~conc [ 1 ] « 2 GO 
addvar l,acid~availCl) #200 

; Amino acids that appear in sequences 

clearvargroup 2 

addvar 2,num codes 

addvar 2 , aalTst_code$ ( X ] « 200 

addvar 2 , aali6t**req 1 1 ] » 2 00 

addvar 2,aali8t'~availtl] «200 

addvar 2 , aalist^conc [1)^200 

; current synthetic protocol 
clearvargroup 3 
addvar 3,num_proe8 
adtf r 3,prot_proc(l] ,200 
add ^ 3 «prot_buf$t 1)^200 
addvar 3 , prot*'vol C 1] # 200 
addvar 3,prot''air[I] «200 
addvar 3,prot''time(l) ,200 
addvar 3 « prot^robottime C 1 } » 200 

; reagents and solutions 
clearvargroup 4 
addvar 4«contents$(l] , 10 
addvar 4,sol_conctl] # 10 
addvar 4, sol^'reqCl] , 10 
addvar 4»sol2availCl) ,10 

; current syringe data 
clearvargroup S 
addvar 5 , num^syr inges 
addvar 5 « syr^pepcodeS C XI , 100 
addvar S,eyr sequence^C^l « 
addvar Srsyr'^eizeC 13,100 
addvar S^syr^rackCl] ,100 
addvar 5,syr~racklocCl] ,100 
addvar S , syr^locC l] , 100 
addvar 5,syr^gripCl] ,100 
addvar 5,8yr2amottnt(l] ,100 
add'«%r 5,syr2re8in(l] , lOO 
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addvar 5,syr_8ttbsi:(X] ,ioo 
htfdvar S,8yr_dodepro^ [11^100 
addvar 5 , 8yr_|>roce88 [ i ) , loo 
addvar 5,syr_aaino 8tepCi],ioo 
addvar 5 , syr^asiiAo counc[l),loo 
addvar S.syrjrocesstiaeri] ,ioo 
addvar 5,8yr_datetlBe$[i] ,ioo 

; SiauXatlon flags 
cXaarvargroup 6 
addvar 6,siaulate robot 
addvar 6,log_robot ' 
addvar 6 , log^rocedure 
addvar 6,dont._valt 

'^C^^'^^t step state for restart purposes 
clearvargroup 7 ^ ^ 

addvar 7,re8tart_info$(i},20 

clearvargroup 8 

addvar 8,division_factor 

; Load variables f roa disk 

erroroff 

a - 0 

loadvars 1, "amino. da t«» 
a » a ♦ getstatusO 
loadvars 2 , "codes.dat** 
a - a getstatosO 
loadvars a^-lastprot.prt** 
a - a + getstatosO 
loadvars 4,**reagents.dat** 
« - a getstatttso 
loadvars 5, -syr itiges.dat" 
a - a ♦ getstatuso 
loadvars 6, "siaulate.dat" 
a • a + getstatuso 
loadvars 7, * restart, daf 
a » a '4- getstatuso 
loadvars 8, "division .dat- 
a - a ♦ getstatuso 
erroron 
if (a) 

asJc^a^-'Some of the saved data did not load.\nDo you vant to continue?* 

terainate 
endif ^ 
endif 

; Figure out the value for next syringe 
next^syringe - i - ^ ^ 

nutt^syringes 6ft syr process [next syringe} > l) 
end^I?^ - next^syringe + l - ^ -a i 

syr_p6pcode$(nuB_5yringa8^1] » "Default"* 
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oyr sequent v(n\sa syrlngvo-fl} ■ 
Byr^loctnutt^syringes+l) •••0 
8yr3>roee8sCnum_8yrin9es'«*l] - 0 

; : 1 in the descriptions for the protocol steps 
a - o 

vhlXe (a <• nua^procs) 

prot_dese$ ( a ) « prot step$ ( prot^roe( a } } 

a " a -I- 1 
endwhile 



( 
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: ST" '^"^ 



iX (Idont mlt) 
^^e^now - elapsed (0) 

filttopen 5,*<roblog.dat*" 

miS^5,io"|?lS:S'"'" *"-»«--"2.0«:%02.0ir %-Bs, %s«,«.eS(,,ctl.e.„« 
filecXose 5 ' - : . 
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Procedure : PBOTCSHG ^ ^ A^im^m st-n 

purpose : Allow operator to edd. insert, or delete step 

Author : lOB^ CgS 

loc&l tenp 

if (user^choice — 1) ? add a procedure 

niua procs «■ numjrocs + 1 

Set the selected row to be the added row 

prot row " nuB procs j,, 

7 Set the colum selection so that the user will be aslcea 

; to input the type ot procedure to add 

prot col • 2 

prot3^oc(prot^rowl - 1 

prot^bufStprot^rowj - *" 

prot^voliprot row) » O 

prot_air[prot]2row) - o 

prot timo(prot_row} - O 

prot*'robottiaaCPS'ot_row3 «• 0 
eisaif"*(u»er_choice — 2) ; insert a procedure 

screenhold"* 

nuB^procs ■ nUB_procs * I 
temp « nua^rocs 

; Move everything bade in the protocol 
while (temp > prot_row) 

protjproc[teBp] - prot_proc(temp-l] 
prot desc$[temp] = prot_dc8c$[tamp-l) 
-rot""butS(teBp] - prot buC$(temp-ll 
.,rot""volCte»pJ » prot_vol(t«ap-ll 
prot^airttemp) - prot air(tenp-l) 
prot~time(teffip) « prot time(temp-ll 
prot^robottimettemp] -''prot_robottime( temp-1 J 
temp - temp - X 
endwhile ^ i,, ..vam 

; Set the column selection so that the user will be asKea 
; to input the type of procedure to add 
protocol 2 
protjproctprot^row) - 1 
prot_buf$tprot_row) • 
prot""vol(prot_rowi — o 
prot""airCprot_row] - o 
prot**timetprot row) - 0 
prot"robottiaeTprot row) - 0 
elseif^'Cuser^choice — 3) * ; delete a procedure 

temp " prot!jrow 
if (tenp < nunjprocs) 

; Mov« everything forward in the protocol 
while (temp < num_procs) 

prot proct temp) - prot_proc(temp+l) 
prot bufS(temp) - prot^buf S(teBp+l) 
prot'~vol(te^] - prot_volCtemp+l) 
prot~air(tempJ - prot_air(temp+l) 
prot~time(temp] • protjtimettemp+l) 
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endvhile 
else 

; ^e selected row cannot be the deleted row 

prot^row 1 prot row - i 
endif " 
na»_proc8 » nuB_proc8-i 
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, ^ 

; ' Procedure ; PROTCLZX ' ^ 

; Purpose : Bandle clicJclJig on a column 

; Author : KJB,css 



local a ^a$, choice 

; Allow the user to enter th6 data for a cell 
if (prqt_col«i«2) ; change the procedure 

nenuarray choice, prot step$(i3, -Pick a procedure:" 
xf (choice J«» prot jroc£prot row] && choice>0) 

prot_proc(prot row) - choice 

prot_buf$(prot"*row) « •••» 

prot^vollprot row] « o 

prot^airCprot^row] - o 

prot^tiaetprot^row) - o 

prot^robot^iaefprot row] « o 

prot changed » i ^ 
endif 

elseif (prot_col-«<-3) ; enter the buffer solution naae 
if (prot_choice(prot:jproe(prot_row]] & paran buf) 
aS - prot buf $ (prot row] *" 
inputstring a$, "Input Buffer Haae" 
if (a$ \m prot bufStprot rowj) 
prot_bufSCprot_row] « a$ 
prot changed » i 
endif 
endif 

els'^f (prot col— 4) ; enter the buffer voluae 
1 (prot_ehoice(prot_proc(protjrow]| k param^vol) 
a - prot^vol(prot_row] 

inputnus a, "input Volume of Buffer or Excess" 
if (a i- prot_vol(prot row]) 

prot^voicprotjrowj -""a 

prot changed * l 
endif ^ 
endif 

elseif (protocol— 5) ; enter the air voluse 
if (prot_choice(prot_proc(prot row]] h paraa air) 
a prot_air[prot row) " 
inputnum a,*Znpu^*Volume of Air" 
if <a \m prot air (prot row]) 
prot^airCpret row) •"a 
prot changed - i 
endif " 
andif 

elseif (protocol— 6) ; enter the tiae 

if (prot_choice(prot_proc(prot row)] ft paraa tine) 
a « prot_tiae[prot_row) ~ " 
inputnua a,"Znpur Xiao (ain)« 
if <a !• prot^tiaecprot row)) 
prot_tiBe(prot row) -""a 
prot changed 
endif " 
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felMiX (protocol— 7) ; mtar the robot use tlM.* 

ir (prot_choice[prot;_proc(prot row)] & paraa^^oMttlao) 
a - prot_robottl2aa[prol: row)"* *" 
inpurint a ^ "Input the 'robot in use' tl&e (sm):" 
it (a I* prot robottlse(prot roWJ) 
prot_robott2ae[prot_rov) «"~a 
prot changed » i 
endlt ~ 
endif 
endlf 
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- g^- 

; Prbcttdure : PSOTUDSV 

Purpose : Xioad or save a protocol 
7 Author ' : HJB, CSS 

local choice, tenpchangad 

; KaJce sure there is a valid reagent specified lor each step that needs one 
choice • 1 

vhile (choice <» nuajproes) 

if (prot_choiceCprot jproc ( choice ] ] & paraa buf) 
if (rtrijn$(ltriBi$(prot bttf$( choice] ) ) — ^'•") 

tell "you must input'^a buffer type for each step that needs one.** 
prot row - choice 
user^choice • o 
stop" 
endif 
endif 

choice m choice -f i 
endwhile 

'* protocol starts with Ready and ends with Finished 

If (prot_proc(l3 step^ready || prot proe(nu]& procs] step finished) 

tellalam "The protocol nust begin with a 'Ready' step\nand end with a 'Pinist 

user choice 0 

stop"* 
endif 

i^^' ^ser is trying to quit or load, check if it needs saving 
if , --5«r_choice — 5 | | user choice — • 6} 
if (prot^changed) *" 

ask prot_changed, "Do you want to save your ehanges\nto a file?*' ' 
endif 
endif 

if (prot^changed 1 1 user choice — 4) 
// Save Protocol to Oiik 

inputstring prot_file$."Save Protocol As:\n(Do HOT add the Extension)** 
if (prot files — ••■•) 

user^choice - 0 

stop 
endif 

prot_fiie$ - prot files ♦ ••.prt" 
filetest choice, pro^ fileS 
if (choice) ~* 

aek choice, -That file exists. \nOvervrite?« 

if (1 choice) 

user_chbice - 0 
step 

endif 
endif 
erroroff 

savevars 3, prot file$ 
(getstatU8()7 
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stop 
erroron 

prot dtanoed - o 
endif 

if (ttBer_choice — 5) 

// Retricva Protocol froa Disk 
filfttos^ choice, «*.prt" 
if (choice>0) 

filelist ••♦.prt«,files$fl} 

Mimarray choice, flies$[l) , "PicJc a Pile to Load:- 
(caoxcaiwO) 
aavevars 3, "lastprot.prt* 
erroroff 

loadvars 3, files $[ choice! 
status choice 
if (choice) 

loadvars 3,«ta8tprot.prt" 

P?ot*^ged^^l*~" invalid protocol file.\nThe last; protocol vas reJ 



savevars 3,«la8tprot.prt'> 
prot changed o 
endif 

erroron 
endif 
else 

Pi'ot^changed • i 
^^11 "No protocol files exist. 

endif 

if (user_choice 6) 

U8«r_choice • -i 
else 

user choice ■ o 
endif 
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; irHialise variables 
nitt * put* - 7 

8i_naM$(l} «* System Start** 

si3naBa$(2) « ""Table Sensor" 

8i_naBe$t3) - "Top of Syringe"* 

8i_naBe$(4) - "Low Air* 

ai_na&e$[S3 « "Motor Hoae"* 

si_najBe$(6] • ""Tumbler /X in Position"" 

9i_naBe$(7) - ""Tumbler #2 in Position"" 

si_name$t8] - """" 

8i2[name$t9] « 

ai^name$C10} * "•■ 

8i'*naBe$(ll] m mm 

8i*naae$(i2] - 

8ijna»e$[i3] - 

8i_naBe$[i4] » "<" 

8i~name$[lS3 » 

8i*'name$C16i - 

8i;^name$C171 - •••• 

8i_naae$Cl8] ■ •"• 

Gi3name$[l91 m mm 

sl2naBe$[20] - "*<• 

; change this line to reflect the addressee of the inputs 
; keep the first parameter at one 
SBASX.puttable 101,0, 1,2 ,3«4,5,6 

num»..tputa - 8 

8o_nase$(l} - ""Tumbler Motor #1"" 

80_naBe$[2] - ""Tumbler Rack Locator #1"" 

80_naBe$[3] « "Tumbler Syringe Clamp /l*" 

8e_name$t4] « "Tumbler Motor #2" 

so_name$(5] • "Tumbler Rack Locator #2" 

8o_name$te] • "Tumbler Syringe Cla^ #2" 

80_name${7] - "2.5ml Syringe Locator" 

8o_name$(8} - "Bozser" 

Bo^nameSfS] m mm 

BO names [10] « "" 

80jname$[ii] - "• 

80_name$[i2] m mm 

8o3nama$(13] « "•"• 

80_name$(14] m 

so_name$[l5] - "" 

8oj^name$[l6] « 

so^name$(17] - 

8o~name$(l8] • 

so^nameSClS] m mm 

8o3name$C20) - "" 

8e_addre88(i] « 220 

8o_addre88(2] - 223 

8o3addre8B(3] - 222 

8o7'''^dre8B(4] » 221 



Paqe 64 



wo 96/22157 



PCT/US96/0I168 



Bo^addnuc^] 240 ^ ^ 

8o_addrttSS(7] • 227 
so_addr«M(a] « 226 

6o_addrea8[i0] • -1 
so^addrMsfll] • -1 

so_addre8s(i3] » .x 

so_addreMCX4] - *x 

so_addre88(lS] - 

8o_addrtt8B(X6] • «>x 

8o_addre88[l7] - -x 

8o_addrc88Cl81 « -x 

so_addre88[i9] « -x 

sojaddre88(20] « -x 

a - X 

raadblt so address [a], so onfal 
a-a^f-x -vi 
endvhlle 

s^opae * 0 
sereenlson ■ 0 
dotexoinal - o 
teralnal ruiming » o 
choice " 0 
while (Istopse) 

if (choice) 

writebit TOaddressCchoice] , Iso on( choice) 
so onCchoicej - iso on(choieel " 
choice « 0 

eadif 

a • 1 



while (a <a nuainpute'lO) 

^'il'^^^ Jo"®'«^-«»"t*l'«i^<»C«*n,8i_on(a«J,si_on(a+31,si_onCa-M),5i_onCe+^ 
endvhile 

while (a <- maninputa-S) 

V^^\ •♦100,6i_on(a] ,si.onCa+l) ,si_on(a+2) ,si.on(a+3) ,si_onCa-^4l 



endvhile 

while (a <« ntminpute) 
readhi^ ai-ioo,8i onra] 
a B a ^ 1 " 

endvhile 

it (doterminal) 

it {t^ecBinal running) 

run ter»inaX.cel 
endit 

dotexaiaaX - o 
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If (Iscroenison) 
vcreenon "tastio" 
jitablttkeys 
screenison » l 

endif 

endvhile 

request **roboe*< 
RO&OT.eoaaand "HOMANUAZ*" 

sereenbadc 
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Procedure : Fl&OTOOOL 

^poce : Allow operator to change proltoceX data 
local cluilce,aimulato_change,teap 

^t^^-?T^* " ^^*^^-^o^o^*C<»o«t-«it*2)*(log^robot*4) + (logjrocadi« 

prot^row • o 

prot^changed « o 

prot_filo$ - 

prot^rocco] • o 

protjrocflOO) - lOO 

screeaon "protocol* 

xiaer_choiee • o 

while (uaer^choice I- -i) 

// ClleSced on Syntlxetic Protocol Box 
if (protocol) 

sereeniq^ate 

it {next syringe ij 
call protcliX.tcl 

endlf 

updatetable 
screenupdate 
protocol » 0 

^if*(uaer choice — 7> 
. Change division rector 
teap « division factor 

inpiitnum teiv,"£n^er the new division factor:- 

xr (ten > o 4& tei^ <- 99.99) 

dlvislon^f actor « teap 

save vers 8, -division, dat" 

screenupdate 
endir 

user^choice « 0 

elseiX^( (user_choice && next^syringe <- i) 1 1 user choice — 6) 
if (user.choice >- i A* user choice <- 3) 

call protchng.tcl " 

apdatetable 

screenupdate 

uaer_choice » o 
elseif (user_choice >- 4 user choice <- 61 

call protldsv.tcl " 

upda^etable 

screenupdate 
eadif 
endir 

endvhile 

;Sav-i protocol to persanent file 
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usftr^choica • o 

initialization « o 
endif 

; Pill in the descriptions for the protocol steps . 
a • 0 

while (a nuB_j>roes) * 

prot_de8c$[a) - prot step$(prot procfa] ) 

a ■ a -*> 1 
endvhile 

screenbacic 
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rrooaOmmt POSBOlo 



Notes: 




set syrxnge «- i for lOml , 2 for 2.5ml 

^^P^ ■ 3. for Bove grip , 2 for stroke grip 
nmmz - 1 for nest 1, 2 for nest 2 



local a 

it (flyringe—i) 
"cJc_locatlon - x 



raOc_locatlon - 1 
racJc^type - 9 
endif 

if (log robot) 

^"S^o^o;!^"" - ' " * "«»to»tr$(syrin,e) * - grip , - . „u»tos 

ttfidif 

it (sinuiate robot) 

1* Mgatting rt) 
-All datraclc.tel 

andif 

stop 
andif 

reqfUttst OBOBOT** 

3OB0T. speed sp^fast 

;a$ - «aixsafe"+ nuatostr$ (grip) 

;ROBOT.Bove a$ 

ROBOT, speed sp mod 

•$ - -taBp- + numtoatrs (syringe) ♦ -_- ♦ numtoatr$ (grip) ••• -_- ♦ nu«o«tr« (n^t) 
ROBOT. move a$ 

if (grip— 1) 

ROBOT, speed sp slov 
else " 

ROBOT. speed sp vslov 
endif - 
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aS m "tlv" ^ iunt:e8tx$(8yring«) « " 4> iitiB(tos«r$(9«**p) -i- •<> ..i»intostr$ (xiiut).-. 

S0B0T.advtt*ii a$ i • . 

BOBOT.fiaiib 

ROBOT. opan 

it (grip— I4&8yringa*-i2) 

delay 500 
ftlaa 

delay 250 
andir 

If (9rip»-l} 

ROBOT, spasd spjaed 
elae 

ROBOT* apaed sp sXov 
endif " 

if <grip-«2) 

run homastr.tcl 
andif 

; check moter pulses 

if (grip— 2&&chec)cjBotor) 

while (thoma^dona) 

endvhile 

call fixidtiop.tcl 
run hoaaatr.tcl 
endif 

a$ « *t»p* 4. nustostx$ (syringe) + " " + nunHosttS (grip) + nuato8tr$(nes^) 

ROBOT •BOvejB a$ " 

ROBOT, fiaiah 

if Csyringa— 2) 

SHARK. vritebit o syringe locate, 1 

delay 1500 " 

smRX.vritebit o syringe locate, 0 
endif * " 

delay SOO 

if (grip— l4&8yringe— 2) 
ROBOT, speed sp^BSlov 

a$ - "tlw" + nuBtostrS (syringe) ♦ + nuatos^ (grip) + + nuBtostr$ (nes* 
ROBOT .movers a$ " — > 

ROBOT. finish 

ROBOT. jog S Of Of. 25 
ROBOT, finish 

ROBOT .close 
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dAlay 250 • 

KdBOT.open 
d»\ay 250 

MB^r^^eJ (syringe, * * numtostrS (grip) * * numtostxS 

ROBOT, finisii 
endlf 

a$ "Blxsafe" + noBt:ostx$ (grip) 
; ROBOT. speed sp^fast 
; ROBOT .aove a$ 

if (grip-i-2) 

vbile (ihoae done) 

aadwhile 

run sareatr.tel 
•ndir 

if (Jgctting_rt) 

call datracJc.tcl 
andif 

free 
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; 

; pttt a bottle in a racK from the any sale position 



USE OF PROCEDtnOE: 

iMfora calling this procedure set the variable: 

rac)c_type to reflect the type of bottle that is being picked up 
robot_location - the location in the rack 

the following variables should be set in the gen^init.tel procedure: 

rov_size[rack type] «• nuaber of locations that are parallel to the track 
raclEjogCrack'*type} « distance to jog down to get bottle 
tracirjog(racIc_type] • distance between the locations 
rack_safe$[rack_type] - safe position 
rack_im_l$[rack type] - intermediate point fX 
rack^im 2$ [rack^type] 
rack^ia"3 $ ( rack^'type ] 

rack^high^Crack-tyi*^] • high point names for this rack 

(the procedUj:c adds the location nuaber to this name so that 
the robot moves to the first location in a row and moves the 
track to the appropriate final location. So rack_high$ should 
look like: "SMjaj") 

NOTES: 

If there are more racks than bottle types » you can have many of these 
* ^s of procedures for each type. For eaeample, create a new procedure 
c^xled gevackl.tcl and call each of the arrays by a different name. So 
reckJiigh$Craek_type) could be renamed racfcl^highStrack^type] , etc, 

if (log robot) 

logroEotS - ••putrack — rack: " + nu&tostr$(rack type) ^ " loc: « + nuatostr$* 
call logrobot.tcl 
rfndif 

if (simulate robot) 

if (igetting rt) 
call datrack.tcl 

endif^ 

stop 
endif 

request "BOBOr" 

KOBOT. speed sp^vfast 

if (rack_type— 5} 
tuml_continue*0 
while (ttumi latched) 
#-«<dwhile 
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aXsair (rac typ a — g ) 
- tus2 con^inuttBO 

vhil? (Itum2 Xatchttd) 

endvhilo " 

found • 0 
robot:_i • i 
while (Ifound) 

if (raek_loeatioa <- robot^i ♦ rov.8ize(racJc_typa]) 

if ( (racJc_^typ©— 3) | I (rack type— 4) ) 

ROBOT.move 'rack ia" " 
•ndif " 

SSSs;^™'*^ " »Oc_^lilgh$trac)c_type) ♦ mimtostarS (robot i) 
KOBOT.nove rack tenpS » « / 

ROBOT »fi2aah ^ 
found • 1 
else 

robot_i - robot i + l 
fuidif 
•ndtAiile 

ROBOT .speed sp^fast 

- rack.location) 

ROBOT, finish ' • 

"oJ(£S!*^-55*~^> ' ' (rack.type— 6) 1 1 (rack type— 3) ) 
ROBOT. speed sp vslov - 
• else ~ 

ROBOT, speed sp slow 
endif 

if (rack^type— 7) 

^^BOT.3og_s 0,0,(-rack_jogfrack_typo]+.5) 

ROBOT. jo9_8 0,0,-rack_JogCrack type] 

ROBOT, finish 
ROBOT, open 
delay SCO 

ROBOT. speed sp slow 

ROBOT, speed sp^Cast 

if (Igetting^rt) 

call datrack.tel 
endif 

if (rack_type— 5) 
tUBl^eontiaue^l 
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•IsalX (raw*, typm^e} 

tnima eon^iim«i>l - 
endlf 
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J^^cedur-c : POT TDM 
.I*«rposB: Put^cyringe in tu&bler 
Autihor: KJB 



if (syr_sxze(curreni: indexj—io) 
syringe - 1 " ' ' 

else 

syringe - 2 

endif 

grip » 1 

nest • 1 

call gathold.tcl 
syr_rack[ current index] - 10 
^-»ckloc(currenl: index] - 0 
;y^-9rip( current inHex] - 1 
endif - * 

; change grip if needed 

if (syr_grip(current;_indax)— 2) 

i^yr-^sizet current index j«BlO) 
syringe - 1 * * * 

else 

syringe « 2 
endir 
grip - 2 
nest • 1 

c 'l puthold.td 
c .1 stopeheJc.tcl 
grip - 1 
nest - 1 

call gethold.tel 
call stopehex.tcl 
endif 



If ^l^^'f? available tuabling racJc space 
<»yr size{ current index]— lO) 
rack fcxnd s 



else 

rack kind • 6 
endif 

txu_carrent - 0 
old^tua 1 

•yr_rackloc(current_index) • o 
while (syr_racklocCcurrent_index)— o) 

no_indax • 0 
tun_current • 0 

vhile (tno index) 
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-/^^ — 

i>£ (Myr rackC^tta eixtr«nt}M«raek kind). 

no Index-*** X ■ " 
endi? 

elself (tu» current»*i) 

syr radcloec current index] » old tun 
no index • i • 
endir 
endvhile 

Old_tUB m oXd^tutt <f 1 
endvhile 

if (syr^sizeC current index|"»10) 

syr_raeic( current index] « 5 
else ** 

8yr.raek{ current index] « 6 
endif 

;place 8yrin9e in tunbXin? rack 
rack^type « eyr^rackC current index] 
rack^location • syr_rackloc[ current l^^dex] 
call putrack.tci " 
call Btopchek.tcl 
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; Procedure: •ftOHiTOR . — 
'Sggg^: ^ Procdura for d^t, j^t ' 

user choice « o 

scrceiton -aonit^r"" 
anableJceys 

winning - i 
run robot. tel 
nui shake. tcX 

while (running) 

if (user_choice J« o) 
ir (user choice i ii 

diseblekeys 
screenhoXd 
call insert. tcl 
updatetable 
screenitpdate 

enableJceys 
endif 

uoer^choice - o 

*^fi' Cttoer^choice — 31 
disahleJceys * 
delete row » curarent^ 
«1X delete. tcl 
ttpdatetable 
screenupdate 
•nableJceys 
, ,^M_choice m o 

^iJjrie'S'^"^^- 
el^f (ueer^choice - 5) 
call reagents. tcl ' 
ttser^choice • 0 

•^if i^^^.choice - 6, 
call amxno.tcl 
Choice - o 

cjjoice — 7) 

disaSJLeJs *"3rringes, . .only worJcs if 'initialisation - o ' 
call clearali.tcl 
mablekeye ^^^"^^ 
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user enoice 0 
elaftir^(IUiar choice 9} 

call finapahot.tcl 

uaer^ehoice « 0 
elseif^CuBor choice 20) 

call equpinit.tcl 

screenupda^e 

enablakays 

U8er_choice - 0 
elseif*(U8er choice 21) 

; ehanga protocol 

call protiocoi.tcl 

uaer^ehoiee « 0 
elaeif^(u8er choice «■ 22) 

caXX teatio^tcl 

uaer_choice ■> 0 
elaeif (uaer_choice — -i) 

; Verify teraination of system 

l£*^(iwer"^Sice) ^® terBinato?\n" 

call scopBtr.tel 

teninate 
endif 

user choice • 0 
endif 

elaeif (current^col || current row i« last row) 
if (current^row — last row)" 

^'dinblele^s^^ nui_syringes-n && syr^rocesaCcurrent_row]<«i) 

acrecmupdate 
screenhold 
call syrinfo.tcl 
updatetahle 
screenupdate 
enahleJceys 
endif 
elae 

laet^row - current row 
endif - 
current col • o 
endif ^ 
endwhile 
acreenon "logo** 
initialization » o 
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Procedure : NBCXSZZP 

; Sl^"^ tha n«t step f or a ayringe 
Motes : xnp^^ — nsjprocaas 

ns^aaino 
nsjdodep$ 
Output — nsjproc&ss 
^^..^^^^^^ 

^odld^L^* figure out what tne next process 

^'ii^f2?=£"*'-'*^-PT°''^=J — ««=«P neaetaBino) 

ir (ns^aaino <• couplings) 

ns^proeess 2 
else 

^^^^rocasB » ns^process 1 

eJflf^rBM^^«™^?!J deprotectlon, figure out if ve are done 

i? (ni^SSSs^r-^V^r^^^ ~ step^stopifnofinaldep) 
else"*'^*^* * n»«process ♦ 1 
^^^nsjroceas - nuajrocs 

«W one to the process nuaber 
enS^"*^* - nejrocesa ♦ 1 



satstringarray restart infoSril -1 
eavevars 7, "restart.dat- ' ^ 



Page 79 



wo 96/22157 



PCT/US96/01168 



; Procedure : HE2lG£MT5 

1 f!ifE®®® • ^^^^ operator to change reagents 

; Author : kjb 

local a$, a, change 

disahleJceys 

{ f!^ colors of the voluaes — set the ones that have their required 
; greater than their available to red, 

vhile (a <m 4) 

if (eol_req[a] > sol availfal) 

sol_color(a) - 4 
else 

sol_colorCa] - 15 

endif 

a - a + 1 
endwhile 
aol_col • 0 
sol'rov « 0 
sereenon "reagents'* 
enablekeys 
user choice » o 
while (user_choiee !» -i) 

if (sol_row) 
if (sol_col»2) 

aS - contents$(sol row) 

inputnring a$, "Input Probe Contents" 

ir (a9 \m eontents$[sol row) a$ J- 

eontents$(8ol row) - ;$ 

change - 1 
endif 
elseif (sol_col— 3) 
* ■ sol_conc(sol row] 
inputnum a « "input Concentration" 
if (a 1- sol_cone(sol row] &a a > 01 

sol_conc(8ol_row) -""e 

change » 1 
endif 
elseif {sol_col~5) 
a • sol_avail(sol rowj 
inputnua a, "input^Available Volut&e" 
If (a km sol^availtsol row! fi& a >- O) 

8ol_availt5ol_row] -"a 

if (sol avail (sol^rov) >• sol reqCsol row}) 

sol^colorCsol row) - is - - 
else ~ 

sol colorCsol row) - 4 
endif - i - 

change * 1 
andif 
^if 
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Qpdau.^ble 

sol^col - 0 
eXsei? (user^choice — u 

savGvars 4, "reagents. dit* 

ttser choice - -J 
elseif (user^choice -» 2) 

user^choiee - -x ' 
. if (change) 

if*(Sr^^^ *'ithout saving?* 

^^loadvars 4.-reagents.dat:- 

«>ser_choice • o 
endi£ 
endif 
endif 

endirtiile 



screenbadc 
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, -f^f=>- 

; Proeodun: ROBHOKE 

; Purpose: Home the robot- 

; Author: KTB^CSS 

; * Notes: 



local choice 

reqfueot "ROBOT" 
syslnit ne88a9e$ • »h 
rohot^ready « i 
BcreeEupdate 

; Ara Power 

tell "KaJce 8\irc Robot Are Pover is on." 
ro^^ready - robot ready | 2 
ROdor.clearara ^ ' 
screenupdate 

; Hobo the robot 

ask choice, "Is the Robot homed?" 
if (choice) 

robot_ready « robot ready I 4 

screenupdate " 

f2*^^1^^?*' in a\nsa£e position?" 

it (I choice) 

ROBOT • nanualc 

8yainit_i&essa9e$ « "Robot is in nanual mode" 
^eenupdate 

'^i^ Robot is now in manual mode.\nUse teach pendant to place it\nin a 

i£ (Tchoice)*^* Robot in a safe position? \n(<No> cancels initialization) 

robot_ready « 0 
stop 
endif 
endir 
«lse 

the robot is in its HOMEEDBRE position ♦/ 
if (2o1m) Robot in its\nHOMEHZRE position?" 

Mic Choice, **Are you sure?" 
endif 

if (I choice) 
/♦ get the robot in its home bounds */ 
ROBOT.nanual 

sysinit^aessageS - "Robot is in nanual node" ( 
screenupdate 

^tell "The robot is now in manual mode.\nDse the teach pendant to place\nit in 

/♦ home robot •/ 
choice • o 

as): choice, "Ready to home?" 
it (i choice) 

**obot ready o 
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stop -/6? ^ 

•ndK ' 

SSS&Sr"** " 1« process- 

WBOT. command -HOUM^ir . 

^bot_rB«dy - rebot_r.«,y , 4 
JJtov* to VERTPY position 

MBOT.coaasnd •Komamuai,- 
MBOT.speed sp nod 

ROBOT, finish 

stop 
endif 

ROBOT. open 

robor.ready « robot^re^dy | « 

/* ROBOT is at VERIFY Position */ 



?*»9e 83 



wo 96/22157 



P<nyUS96/01168 



Procedure : ROBOT 

Purpose: Control the robot movements 

Author: MJB,CES 
Notes : 



if (robot_running) 

stop 
endif 

local last_current,a 

robot_ninning « 1 

system_paused » 0 
error « 0 
pause_system = 1 
current_index = 0 
timer start_time 
time_now = start_time 

while (running) 

if (initialization) 

stringrequest "USING SYRINGES" 

' J^^. syringes are in the system, set the start time to zero 
if (num_syringes — 0) 

timer start_tine 

time now « start time 
endif ^ 

; check if robot has been paused 
call 5topchek,tcl 

; check if all the syringes must be cleared 
if (clear_all syringes) 

call clearaXl.tcl 
endif 

;find next syringe that robot will work on: current index 
call whattodo.tcl 

; while the robot has a syringe, perform the next step for the 
syrxnge 

while (current index > 0) 

syr_statcolor (current index] = 1 
last_current = current index 
updatetable ^ 
call dostep.tcl 



syr_statcolorllast current! « 0 
updatetable 
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if (current_index) 

stringrequest "NEXT STEP" 

ns_process = syrjprocess (current index! 

ns_amino = syr_amino_step [current index] 

«s dodep$ ^ syr_dodeprot$tcurrent"ind€x] 

; Find the codes for the syringe 

bs seq$ ^ syr_sequence$ {current index) 

call breakseq.tcl ~ 

call nextstep.tcl 

syrjprocess ( cur r en t_index) = ns process 
syr^amino_step[c\irrent indexj « ns amino 
stringfree "NEXT STEP""" 
endif 

savevars 5, "syringes.dat" 
endwblle 

stringfree "USING SYRINGES" 
endif 
endwhile 

robot_running = 0 
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Procedure: ROTATE 



; Author 

— 



' set 



rot^riae - tiae to rotate in aeconda 
if (log robot) 

oRdiir 

if (simulate robot! 

stop • ' 

endif 

local wait 
request "ROBOT" 
ROBOT: speed sp^slov 
tiaer wait 
ROBOT, speed 150 

ROBOT.fSSSh MI3CSAFE3,KIXIllG,KlxSArE2- 
; ROBOT, joint 4,90 

; ROBOT, joint 4, -90 
cndwhile ' 
ROBOT, speed sp^slow 

tree 
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; Procedure: SAFEHTR 

; iSSor^ : SS*" * ^^^"^ position 

direction • i 

»o^«^«stepa ■ Botor.saf e_Btep 
call strtatr.tcl 
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; NAMS: SIUKB 

; aSr^ SBP^ appropriate tnablars 

^"""'^"'''^^"""''"■■■'■■■■■■"■■■■■■■■^^ 

if (shAJce running) 

stop 
mdif 

local a 

shake^runnlng • x 

tual latched • i 
tum22latched - i 
tuu^continue • i 
tum2_continue • i 

Sdihlli*^"^^^*^"*^^*^"^ '* (naming)) 

wbile (running) 

if (!8iaulate_robot) 

if (tual^latched 6& tunl^continue) 

nml rf f ■ f ^"^^ is anything in the rack 
narrayflnd a,8yr_raek(l]«5 
if (a !« -1) • 

; txxm tuaibler i on 

SHARK. writebit o tual claap,! 

delay 250 - *^ 

SSARK. writebit o tual latch. 0 
delay SOO " 

^^JJAW- writebit o_tuai^start,i 

tuai_continue 0 
endif 

tuml latched • o 
eadlf *■ 

SHjSK.writebit: o_t:«a_i.tch. o 
SH*Sr.writ«bil: o_cumX rt«rt,i 



SBASK.writebit o tuml start, 0 
d«lay 250 ~ 

SBMK.writohit e tuBl Uteh.l 
•lalay 2S0 ~ - 

smsx.nritabit e tual claa^.o 
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timl latehad ^ x 
ehdlf 

it <tu&2_latched &£ tum2_continue) 

; Check i£ tliere is anything in the raeJc 
narrayflnd a,syr rae)c(l],6 
if (a 1- -x) 

; turn tumbler 2 on 
SHAXOC.vritebit o tu&2 claap,! 
delay 250 

SEARK.vrirebit o ti2a2 lateb,0 

delay SOO — — 

^?HAKK.vritebit o tUB2 start, 1 
ela© ~ — 

tU2a2 continue • o 
endif " 

ttt&2 latched • 0 
endif 

if (tu&2_continue— o 4fi tum2 latched " 0} 
; turn tumbler 2 off " 
SKARK.vrltel-lt o tum2 latch, 0 
delay 250 - - 

SHARK. writebit o_tuin2 start,! 
SHARK. readbit i sense''tUB2 , a 
while (la) 

SHARK, readbi^ i sense tum2«a 
endwhile " ~ 

SHARK. writebit o tuB2 start, O 
delay 250 

SHARK. writebit o tua2 latch, 1 
delay 250 ~ " 

SHARK. writebit o tUB2 claBp,o 
tua2 latched - i"* " 
endif 

endif 

endwhile 

ehaJce_running « o 
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;■ ■■ 

; Procedure: SH»SBOT 



; Author: as* * ayringe dat:a 

; Hotes: 

local files 

file$ - "snapshot. da t** 

files, "Enter the file naae:« 

ic (files 

stop 
andif 

erroroff 
filenev 6,file$ 
if (gotatatusO ) 

tellalarm "Invalid file naael" 

stop 
•ndif 
erroron 

sysaags - -waiting for rohot...- 
acrecmupdate 
stringrequest "SVRrXLE" 
ayaasgs « -Writing to file...- 
sereenupdate 

Sf -«w » X 

(«f.row <- nujB^syringes) 

call syrfile.tcl 

sf^row « sf row + i 
endvhile ~ 

fileclose 6 
sysBsgS - 
screenupdate 

stringfree -SYRFZLE" 
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; * Frocatliire: STMOUP 
; Purpose : startup systma 

; . Autlior : hjb 



onablolceys 

call inlt.tel 

if (naxt^syringe <« x) 

ecreenion "logo" 
else 

call restiart.tel 
run Boniter.tel 
endlf 
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« Procttdures STOPGBEK 

if (pau8e_6ys^ttiB) 

it (! simulate robo^) 
requast ••ROBOT'* 
ROBOT, aaniiale 
fraa 
eadif 

systaa^pausad « i 
Acraanupdate 
wtUle (pause sys^ea) 
endvhila • ^ ' 
^^it (Isiaulate robot:) 
request ••ROBOT" 
ROBOT 
. free 
endif 



syatem^paused - o 
screenupdate 
endlf 

«'?W«t syrinqe list again 
stringrequest "USZNC SYRlHCES" 
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; . ^ , ■ — > 

; Proeeaora; SYR^ASP 

; Purpose : aove syrin9a to cup and aspirate solution 

; Author : K7B 




set cup o 1 for RGPl, 2 for RGP2 

syringe » X for lOmX « 2 for 2 •5ml* 
asp^^amount « amount of solution to ssplrate 
alr'"aaottnt « amount of air to draw In 



If (log robot) 

logrobot$ - "syringe aspirate — cup: " + numt08tr$(eup) ♦ " syringe: ■ ♦ numi 
call logrobot.tcl 

logrobotS » ~ amount: * numtostrS (asp^amount) i- " air ami 

call logrobo^«tcl 
endlf 

if (sifflulate^robot) 

stop 
endlf 

request ••ROBOT" 
ROBOT .speed sp^fast 
ROBOT. move *'mlxsafe2" 

a$ "mlxs" •¥ nuatostr$ (cup) -¥ numtostr$ (syringe) 

ROBOT .move aS 

ROBOT .speed sp_vslov 

vblle (!dlsp_done) 
ottdvhlle 

ROBOT«jog_S 0,0,-4 
ROBOT, finish 
delay SOO 

/• Program to pull up syringe for solution amount */ 
If (syringe— 1) 

Botor_st:eps « (asp amount+alr amount) *syrgl cal asp 

syr_amount(current*'index] « syr amount (current_&idex J ♦ asp^amount ^ air_amoui 
else ~ — - 

aotor_steps • (asp amount^air_attount) •8yrg2 cal asp 

syr amount (current^index) • syr amount (current Index] ♦ asp^amount ■•• air^amoui 
endlf* " 
ir ( (motor_step8-int(motor_step8) ) >«.5) 

m^tor^steps >- int(mocor_8teps) -¥ l 
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eX«e 

direction o 
call strJcate.tcl 

;ROB0T,jog 8 0,0,4 
;ROBOT. finish 

delay 500 

savevars 5 . -syringes . dat- 

ROBOT, speed sp^mslow 

ROBOT. jog s 0,0,4 
ROBOT, finish 

ROBOT. speed sp_fast 

a$ - -mixs« ^ nuint;ostr$(cup} + nuatostr$ (syringe) 
ROBOT .aove a$ 

ROBOT.aove "aiacsaf e2** 
free 
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. 



Purpose : aova syringe to cup and difipense soXu^lon 
Author : hjb 



B«t cup « 1 for RCPl, 2 for RCP2 
» dflp_an ount: «» aaount ot soXurion to dispense 

if (log^robot) 

logrobotS « '"syrin9e dispense — cup: ** nuBtostr$ (cup) ^ *' asount: ** miate 
call logrobot.tel 
endif 

if (siaalate^robot) 

stop 
endlt 

request "ROBOT" 
ROBOT. speed Bp_fast 
ROBOT. move "mixsa£e2'' 
ROBOT, speed spumed 

a$ * 'Bixs" nuBtostr$ (cup) ♦ nuatostrS (syringe) 

ROBOT .move a$ 

ROBOT.speed spjvslow 

ROBOT. jog_s 0,0, -3. 25 

ROBOT, finish 

delay SOO 

/• Prograa to dispense froa a syringe*/ 
if (syringe— 1) 

BOtor^steps • dsp aaount* syrgi cal dsp 
else - ^ - - r 

"otor^steps • dsp_aBount*Byrg2 cal dsp 

if ((BOtor_step8-int (motor 5teps))>«.5) 
Boter^steps - int(aotor_steps) + i 



Botor^steps - int (motor steps) 
endif - 
direction - i 
cal) stricBtr.tcl 
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;/* Program to suck up drop froa tip*/ 
elBe^'''"*^*'^^ " ^®P-*=^®P-.*»o«n^l*syrgl_cal_dsp 
^^tor^staps - dap_drop_aaoimt2*8yrg2_cal_dsp 

if ((ttotor_steps-int(sotor steps) )>».S| 

motor^steps « int (motor_it«ps) l 
a^sa 

BOtor_steps « int (motor steps) 

direction » o 
call str)aatr.tcl 



HOBOT. spaed ap^msiow 

ROBOT, jog s 0,0,3.35 
ROBOT, finish 

ROBOT. speed sp mad 

ROBOT. move '*mixsafe2'* 

frea 
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clZi^ 

; Procedure: SYRFIle 

; Purpose: Wri^e a 6yrin9e'8 date to a file 
/ Author: CCS 

; Kotes: The file number will be 3 upon entry 
; sf^rov will be the syringe to log 

local a$ 

stringforaat a$,"Pepcode: 1-15*158 Sise: %s al",8yr^epcoda$Csf jrov] ,nusitostrS(s 
fileappend 6,a$ 

a$ • "Sequence: " + syr_sequence$(8f_row] 

fileapp«nd 6,a$ " " 

it (prot proc(8yr process Cs£ rowj) !• step finished) 

stringforaat aS, •Current Amino: %2.01f Resin: %4.1ir Subst: %4.21f Fi 

fileappand 6,a$ 

if (syr loc(6£ row]) 

8tring£onat'*a$,** status: «-13.l3s Location: In Input Rack (Loc l.oif)"rpro 
alseif (syr raclcCsf row) — s || syr rack(sf_row) — 6) 

•tringforSat a$, "status: %-l3.138-,prot_8tepSCprot_proc(Byr_proceaa(6f_row) 



fitringformat a$«"Status: %-13. 13s'\prot stepS(prot_proctsyrj>rocessfsf_rowj 
endif 

fileappend 6,a$ 

a$ - "Start: " syr datetiae$Cs£.row} 
fileappend 6,a$ ** 
else 

stringformat a$,<*Resin: *4.llf Subst: %4.21£ Final Oeprot: %s",syr_resm 
^*\eappend 6,a$ 

^ - -start: " syr datetiae$(sf.row] ♦ " Finished: " ♦ dateSO ♦ " - * tia 
fileappend 6,a$ *" " 

andif 

tilaappend 6,"« 
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Procsdure: syRZNTO . ' 

Purpose: User vante to change syringe ln£o 
Author; CES 



local a, aS, choice, teap^oldchoice 
; change the pept:ide code 

if (current^col i t& current row <- nun syringes! 
a$ - syr^epcode$ (current row)" 
xnputstring a$j "Enter th«"*peptide'6 code:" 

tellalenr -That code is invalid." 
elseif (a$ I- syrjepcodeS[ current row) J 

syr^pepcodeS (current row] - a$ " 

savevars 5 . "syringesTdat" 
endif 

; change the peptide sequence 

elseif (current_col — 2 4* current row <- nu& syringes) 
- ayr_sequenceS( current row] " 
iiqmtlongstring a$, "Enter the peptide's sequence:" 

seg5 ■ a$ 
call breaJcseq. tel 
if (bs^error || (1 couplings)) 

tellalara "That sequence is invalid." 
eiseif (a$ J- 8yr_8equence$( current row)) 
syr_amlno_count[ current row) - couplings 
8yr_sequence$C current row) - a$ 
yr^proeessC current row) » o 
^le_needed - i - - 
savevars S, "syringes. dat" 
endif 

; change the syringe size 
elseif (current col — 4) 

aenu choice, "PicK a 8ize:","io ml", "2.3 nl" 

if (choice kk syr_8ize[ current row) I- io-(7.5*(choice«l} ) ) 

■yr sixe(current_row) - io-(7.5*(cheice-l} } 

■yr«.loc(current_row) » o 

»5n^_racXCc\»rrent row) * o 

syr_rac)cloc( current row) - o 

syrjprocess(current~rov] - o 

savevars 5, "syringea.dat" 
endif 

\**f5^* t*« syringe location 

elseif (current col — 5 current row <- nun syringes) 
choice • 8yr^Ioe(current row) " - - ' 

inputint ehoxce,"En^er the location:" 
^A^^h^^ »y^.ioc( current row)) 
if (choice) - 

if (Choice < 1 I I choice > 30) 

tellalan "The location busI: be between -1 and 30" 
sysBS9$ » "" 
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ecrttenupdate — / 23 

" sto^ - . • - • 

8y8BS9$ - •Chaekin? rack* . • " 

acraenupdate 

teap » 1 

vhlla (^enp <• num_8yrin9es) 

if (6yr_loe(tenp] »*> choice 4& ^eap la eurren^^row && syr^sizaitenp] 

taXXalarn **That locacion is already used!!* ~ 

sysBsgS • 

screenupdare 

atop 
endif 

teop B tomp 4- X 
endvhile 
sysmsgS ■> 
acreenupdate 
endif 

if (syr_loc( current row) o && choice > 0) 

calc^naaded - 1 " 
elseif'c choice O) 

oyrjproces8[ current row J • 0 
endif " 
syr_l DC (current row) - choice 
savevars S, "syringes -dat" 
endif 

; Change resin amount 
elseif (ciunrent_col — 6) 

* • syr_resin( current row] 
inputnua a ^ "Enter the^resin amount:" 
if (a l-i syr resin (current_row]) 

syr resin [cttrrent_row] • a 

if T6yr_proces6(current_row| > 0) 

syr _proee88( current row) « o 

calc needed » 1 " 
endif " 

savevars 5,"8yrinae8.dat» 
endif 

; Change substituion amount 
eXseif Ccurrent^col — 7) 

* ■ eyr^substTcurrent^row) 
inputnua a, "Enter the**subst. amount:" 
if (a I- oyr suhstCcurrent row)) 

syr_auhstCcurrent_row] -*"a 

if (8yr_proce88(currcmt row] > 0) 

•yr_j»rocess( current row) * 0 

calc needed « 1 
endif " 

savevars S^'syringes.dat* 
•ndif 

7 Do final deprotection? 
elseif (current^col — e> 
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it («yr_CfcMdeprot$[ currant row] — "Y") 
syr_dodeprot:$( current row] "m* 

syr_dodeprotSCcurrent_row) - "Y" 

ix (6yrjproces6[ current row) > o) 
8yr_procea8( current: row) - o 
calc needed ■ l 

endif " 

savevars 5, •syringes.dat* 
endlf 
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Proca^liire: 'SYSXHIT- 

Purpose: Initialise the syringe map 

Autlu>r: MJBrCES •jrt*n»« f^p 
* Notes: 



local choice, teap 

syringe^ready •» i 
screenupdate 

; Check syringe pump power 

^eeilSpdS^T'^^ ' -ChecJcing Syringe Pi»p Power- 
call syrpover.tcl 
if (isp^power) 

syringe^ready - o 

erroron 

stop 
endif 

syringe^ready - syringe^ready | 2 
p Pill the reservior 

tell "Pill the Syringe Pump reservoir." 
syringe.ready - syringe ready | 4 
screenupdato ' - x 1 

; Priae the syringes 

if*. Jl^i^r"" •yrla?. pumps?* 

tall *Pri&e thea now*" 
^^^1 -Turn the punps off and then on." 

^^SpKSr^"^ " -ChecWng syringe Puap Power" 
call syrpower*tel 
if (tsp^power) 

syringe^ready - 0 



stop 
endir 

syringe^ready - syringe ready I 8 
sereenupdate - ^ \ 

arroron 
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. ; "Procedure;" foisHZKC ' T 

; Purpose : ucAcutes robot * actions for a washing 

; Author : kjb 

local a»bufjplace,infoiadsx 
infoindex "1 

;fliid butter in reagent table 

saxrayfind tout _place,content6$[l] «prot_but$(8yr jprocessCcurrent^indexJ] 
;if syringe just started, get troa input rack 

if (6yr_raek( current index] l"8&&8yr rack[current index] 1 -10 6&8yr_rac)c(current_in 
if (syr size [current index]— 10) 

rack type - i " 
else 

rack type - 2 
eadit 

rack_location •> syr raekloc[ current index] 
call getrack.tcl * 
syr_grip( current index] • i 
call stopchek»tcI 
endif 

; switch grip on syringe 

if (syr^griptcurrent index)—«l| | ((syr rackCcurrent index]— 8) 1 1 (syr_rack( current 
if (syr_size(current index)— 10) " 

nringe - i " 
e^e 

syringe - 2 
endif 
grip - 1 
nsst - X 

;if syringe in restart dont pick up 

if (syr_rack( current index) l-a^asyr rackCcurrent index] !»9) 

call puthold.td - - 

call stopcbek.tcl 
eadit 

i^ (8yr_size( current index)— 10) 

syringe - i 
else 

syringe « 2 
endif 
grip • 2 
nest m 1 

call gethold.tcl 
^y^JSP^iplcarront, index] • 2 
call stepehek.tcl 
endif 

;squeese out solution in syringe 

if ((syr_sise(current index]— lO&fcsyr aaountt current index ]>drop amountl) | | (syr. 
CP' I waste. tel " " " " • 
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call 6tepeae)c.teX 

aiaif 

rtt8tart_iBfo$(infolndex) • "Hash: E&ptied syrlage" 
savttvars 7, "restazT.dat" 
infoindeac ■> infolndex + l 

;dl8pm8e buffer 

re8tar&_info$(infolndex] - "Wash: Starred dispensing ' buff er" 
savevars 7,**reffCarr.dat'' 
inf oindex • inf eindex ^ 1 

buf^aBount ■ pro% vol (syr process C current index]} 
if (syringe— 2) 

tonf aaount «■ buf aaount/division factor 
endif 

buf^nuaber « buf jplace 
nm**disp buf .tel 

soX_avaiIcbuf_place) « sol avail [buf place] - buf amowt 
savevars 1," amino, da^** " " 
i< (log robot) 

logrebot$ • "dispense : " nuBtestr$ (buf aao\int) * ** nozsle: " ^ nuBtostr$(bu 
call logrobot.tcl 

logrobat$ « solution i • + prot buf $(syr process (current_index] ] 
call logrobot.tcl " 
endif 

restart_infoS( inf oindex] « "Wash: Finished dispensing buffer" 
savevars 7, "restart.dat" 
inf oindex « inf oindex 1 

; aspirate buffer 

re8tart_info$( inf oindex] - "Wash: Started aspirating buffer" 
savevars 7, "restart.dat" 
infoindex « infoindex i 
cup - 1 

if (8yr_size( current index]— lO) 

syringe « i 
else 

syringe - 2 
endif 

asp^anount • buf aaount 

air^aaount - prot airtsyr process (current index]] 
if (ayringe— 2) " 

air^aaount « asp aaount/division factor 
endif 

CAlX syr^asp.tcl 

restart_ljifo$t infoindex] - "wash: Finished aspirating buffer" 
savevars 7, "restart.dat" 
infoindex • infoindex 4- i 
can stopcheJc.tcl 

;rotata 

rot tine • 60*prDttiae(syr process (current index]] 
call rotate, tcl 
call stopohex.tel 

;squeese out solution in syringe 
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call vaste. ^1 ^ 

savevBTs 7, "restart .dat** 
iaf oindax » inf oindex + i 
ca .stopchelc.tel 



I* 
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Procedure: WASHZKG 

Purpose : executes robot actions for a vashlng 
Author : kjb 



local a,buf_piace,infoindex 
infoindex • i 



;£ind buffer in reagent table 

sarray f ind but jplace , contents$ [ l ] , prot.buf $ t syrj?roeesc t current^index j ) 

':J',sy«'i»9e Just started, get froa input racJc 

4i^X^^~^*^^^^^^^^'^^'^^^eyrjrtLe}QiGu^ racJc(current in 

if <syr_size( current Indexi-»10) ««i-_An 

rack:_type - i " 
else 

radc^type - 2 
endif 

"flp-^ocatlon « syr_raciaoc( current index] 
call getracJc.tel ~ 
sy-^rripfcurrent index] - i 
call stopchek.tcl 
endif 

;svitch grip on syringe 

ii^Tf;;?^^?^'^*"^-^'^^^— 1| I ((syr^radctcurrent^index]— 8) | | (ayr rack[eurrent 
IX (syr_sxze(cturrenc xndex]""iO) " 
yringe - i 

syringe -a 
endif 
grip - 1 
nest ■ 1 

; if syringe in restart dont pick up 

cair^pS2hSl?*tcl"^"^***^ i-eS4syr.raclc(current_index3 1-9) 

call stopcbeJc.tcl 
endif 

if (syr^sizeCcurrent indexl««10) 

syringe - i " 
else 

syringe - 2 
endif 
grip - 2 
nest " 1 

call getbold.tcl 
«yr grip (current index) - 2 
call stopchek«tcI 
endif 



/squeeze out solution in syringe 

^'*<ii?^-ff*®^*?""'*^-^"^*''^~^®***y^-"**^^C*=*"«"^-i«^ amountl) | | (syr 

c^ X waste* tcl * ^ * " 
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call stopcbttlc.tel 
•ndlf 

restart_lnfo$[infoiftd«c) - "llashs Smptied syrinae* 
savsvars 7, restart. da«" 
Inf oindex « infoindax ♦ i 

jdispense buffer 

*^^rt_info$C inf oindex J - "WaBh: stuirted dispensing buffer-^ 
savevars 7,«re8t:ar^.dat« - 
infoindex » infoindex ♦ 1 

tottf amount « prot__volC8yrjprocefifi( current index]] 
if (syrxnge— 2} ^ 

bttf^aaount « buf_aaount/divifiion factor 
mdif - 
buf nuaber buf jplace 
run'disp buf .tcl 

sol_avaiI[buf_place1 - sol avail (buf place) - buf anount 
savevars 1, ** amino, dat** *~ 
if (log^robot) 

logrobot$ - **dispense : * nuxsto8tr$ (buf amount) + nozzle: " ^ nuBtostr$ (bii 
call logrobot.tcl ^ 

logrobotS • "solution : " prot buf $[syrproc«;: 5t( current index)] 
call logrobot.tel - «. ^ -r - 

endif 

restart_info$C infoindex) «= "Wash: Finished dispensing buffer* 
savevars 7, res tart, da t" 
infoindex - infoindex 4- i 

; aspirate buffer 

restart_info$( infoindex) « "Hash: Started aspirating buffer* 
savevars 7, '•restart.dat* 
infoindex - infoindex ^ i 
cup « 1 

if (Byr_sixe[ current index]«-iO) 

syringe « i "~ 
else 

syringe • 2 
endif 

asp^aaount - buf ^amount 

air amount • prot_airCsyr_jrocess[ current index)) 
if (syringe— 2) ^ ^ 

air^amount • asp^aaount/division factor 
endif 

call syr asp.tcl 

restart_Info$( infoindex] - rwash: Finished aspirating buffer" 
savevars 7, "restart.dat** 
infoindex - infoindex i 
call 8topche)c*tel 

rrotate 

rot time « 60 *prot_tiae(syr_proeess( current index)) 
caxi rotate «tcl 
call stepeheK.tcl 

;8gaeece out solution in syringe 
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call «raste.wl 
rMtazi:_info$Cin£oind«ac] - 
savevars 7, "restart. da^" 
inf-'lndex o infoindex 1 
ca. /stopehek.tcl 



*Wash: aaptied syrlnga" 
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; Procedure: HASTE 

i Purpose : move waste and dispense liquid 

; Author : KJB 



if Clog_robot) 

lo9roboli$ • **vaste : "+ nuBto8tr$(syr aaounttcurreht^index]) 
call lograbot*tel 
endlf 

it (sisulate^robot) 

stop 
endlf 

request: "ROBOT* 

ROBOT .speed spjeed 

fiOBOT.Bove "vasts" 

ROBOT. speed sp^mslov 

ROBOT, jog s OfC-vas^e jog 
ROBOT, finish ~ 

/* Prograa to squeeze out liquid */ 
if (syringe— i) 

Kotor^s^eps • |syr aaeunt( current iadex)-«-l)«syrgl_caIjdsp 
elr " 

n.. .or_s«eps - (syr amount (current index]4-.25> *Byrg2_cal_dsp 
endif 

if ((ttotor_stepa-int(BOtor steps))>*.5) 

Botor s^eps » int:(ae^er steps) * 1 
else " 

motor s^eps » in«(ao^or steps) 
endif 

direction « l 

call s trJuat r.tcl 

syr_aaount{current_ind«x) « 0 

savevars 5 , "syringes.dat" 

/ ' '/ 

/* prograa to suck up drop */ 
if (syringe—i) 

aotor^s^eps « drop^aaountl'syrgl cal asp 

syr_aaount(ciu:rent index] ■> drop^'aaountl 
else " 

sotor^sreps - drop aBOttnt2*syrg2 cal asp 

syr_aaountCeurrent~'ixtdex] - drop'^aaoiwta 
endif " 
if ((Bot:or_steps-inl:Caotor 8teps)}>-,5) 

Botor_s«eps - in^(Bo^or steps) l 
else " 

B'^tor^steps « int(aoter_staps) 
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call fitrkBtr.tel 



/* */ 
ROBOT .speed spjBslov 
ROBOT. jo9;_8 0,o,va8te^og 
free 
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Proeadures HHASroDo 

Purpose : finds cor rent index 

Author : 9JF * 



local j, k, taap, ^esmp time, taap busy 

local nev^busy, .nev_8t:ep,'~nev aaino count, new amino step 

local first^temp, bail^out, nSw^syr^starttlOOjT newj5yr_endC 100] 

; set the current time (leave it duamied if ve are sisulating tines) 
if (Idont^wait) 

tiae^nov - elapsed (O) 
endlf 

current_index - o 
Cir8t_teap » o 
bail^out - 0 

if (restart^index >- next syringe) 

tell "Make sure that the tenporary nests are eapty!" 

restart index m o 
endif • 

; if there are no syringes in process, start the first one or bail out 
if (next^syringe <« i) 

if (prot_proe(syrjproceBS(next syringe}) »■ step ready && next syringe <- nua 
o«rrent_index • next syringe'' - — - 

shov "point l" * 
e- If 

endif 

; If one was interrupted, continue that syringe 
if (restart_index) 

current^index - restart index 

show "point 2» ^ 

restart index • o 

stop * 
endif 

; Search through the active syringes and find the one with the shortest wait 
first tenp - i - 
i - 2 

while (i < next_syringe) 

i« <«yr^roceistineti) < syrjrocesstiaeC first tenp]) 
first teap m i - 

endif * 

i - i ♦ 1 
endwhile 

; Is the syringe with the shortest wait tine ready to be processed? 
« («yrj>rocesstin«( first teap] <- tlae now) 
current^index - first teap 
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; Are there no syringes ready in the input tray? It there are none, no 
; syringe vill be processed at this time 

if (protjproe(8yrjproceas(ne3Ct syringe]) l« step ready || next syringe > nua ' 
if (idont_vait} " ~ 

eurrent^index » o 
stop "* 
else 

; siaulate the next syringe 
current_index • first tenp 
shov "point 3" " 
tlae^now syr_proeessti&e( first temp) 
stop 
endif 
endif 



; Figure out if we can start the next syringe in the input racJc 



; first, set up a teap array of current tumble end-times 
i ^ 1 

while (i < next_^syringe) 

temp_processtiae(i] • 8yr_processtime(i] 
temp^amino stepci] « syr amino^stepCi] 
taap^8tap(I] - 8yrjprocess(i} 

endWiile 

; now set up arrays of 'robot busy' time slots using all acrive syringes 
; sat the index of the STAST and END time arrays for robot busy periods 
temp^busy • o 

robot_busy_start(0] - cime new 
robet_bttsy_end(0] - time now 
f irst^tei^ -1 " 

; while we haven't examined every active syringe's future, fill in the 
; busy time slots 
vhile (first^te^) 

tamp^busy - temp^busy 1 

; Search through the active syringes and find the one with the shortest wait 
; that hasn't been processed to its finish step yet 
first temp « 0 
i - 1"" 

while (i < nexc_syringe) 

if (prot proc(temp step[i]] I* step finished) 
if (IflrBt^temp)*" " 
f irst_te^ - i 

elseif Ttemp^rece8Btise[i] < tempjprocesstimeC first teap]) 

first teap » i " 
andif ~ 
endif 
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1 - i ♦ 1 
«nd%fhilo 

; Tf VQ fovoid a syringe that hasn't bean processed to the end. process its 
; tact steps 
it (firot^teap) 

; add up the adjacent robot &ove*times for that syringe 

teap - first^taap 

; the STAfiT of these robot moves 

robot_bu8y_startttenp busy) « tamp_procesfitine[tenpJ 
tesp_8tepcteapj - teap steptteop) + 1 
teap_tiae « teap^proeesstiaacteap) 

vhile (I (prot_choicetprot proc[tenp_stepCteaq?]]] & paraa^stop) ) 
; first, cheOc if ve are^starting another aaino 
if (prot_proc(teBp_step(tfifflp)) «- step neactaaino) 
if (teap_aaino_step(teBp] < syr^aaino count[teap]) 
teap_aaino_8tep(teap] - teap aaino step (teap J 1 
te^^stepttea^) - i " 
else 

teBp_step(teap] - teap step[teap] 1 
endif " 
elseif (protjproc[teap_step(teap]] — step stopifnof inaidep) 
if (8yr_dodeprot$(teap] — ■Y*) ^ 

teap_step(teap} - tes^ step [teap] 1 
else 

teBp_step(teapJ • nua procs 
sndif 
else 

teBp_step(teap] • teap_8tep(teap] + i 

teap_tiae « teap tiae 7 prot robottiaefteap step [teap]} 
endif — w - 

sndvhile 

robot^busy^cndCteap^busy) » teapot iae ;the £ND of thes robot aeves 

; re-assign its NEXT scheduled tixable end-tiae 
if (prot_proe(teap_stepcteap)] step finished) 

teap^processtiaecte^i » teap^^tiae •f'*(prot_tiBe(teap_stepCteap]) * 60) 
e n dif " — 

endif 
endvhile 

; Mov calculate the tiae slots needed by the next syringe in the input rack 

nev^step « i 

teap tiae • tiae now 

nev^busy • o " 

nev^aaino^step » i 

while (prot_procCnev_step) !- step^f inished) 

new busy - new^busy + i 

; the START of these robot aoves 

»«»f-»yr_»tart( new busy] - teiQ> tiae 

while (S (prot._choice(prot_proeTnew step}) « perea_stop)) 
? first « checJe if ve are starting^another aaxno 
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niC I^iSi^r"**P * «yr_«Bino_couiit(na« syringe)) 
else ~ 

^ew.step - ae»'_«tep + i 

*^ll^f8i?''S^S^2r'-***PJ r «*P_»topifnofin.ldep) 
new^Btep - new step ? 1 ' 

new^step • nuB_pFocs 

else 

new_6tep • new s^ep + i 
^^^teap^tlae - teip^tiae prot_robott:iae(new^st;ep) 
exidvhile 

; the EKD of these robot moves 
****'-«y'f««nd(nev_bu8y) » temp^tiae 

if^™^?" scheduled tumble end-time 

^^^^^iJ^^'^^i^^^J^^^P} !- step finished) 

endif" 



n-w'n*^^" iprai^_^uie[nev step] * 60) 

""^8tcp « nev^scep + 1 ^ — r-j 



endwhile 

I ^ SS^"tS%Si"y iSle'Ji^S* ^ 

j ' 0 

i«^(ne*r_Byr_e«dtl) < roboi:_b«sy_sterttX)) ;tbe rirst block of »eves is clear 
vWl* (d <- new_busy) «s (!ball_o«t) 46 (j <- te»p_busy) ) 

"l"T*T-"'*''^^' ""-t-busy^-ndtj,) « (new_syr_.ndli, <- robot_bu.y 
iiS^-?'^-**^^^^ *■ "»wt->»«y_st«rt:tjj) ** (new_syr_st«rttlj < rob 

>t - 3" 

•^b^if^ii?*:-!^-'^^*' * robot_bu.y_stu«t3]} « (n.w_Byr_endtl) <- robet.b 
*^1 arobot_bu8y_st»rtCjj >. n.w_syr_st«rt(i)) £4 (rebot.busy st«tt3I < 

* - T 

SSf iiri^-*««y-«««»t31 > ne-_.yr..t«xcil) « (robot_bu.y ei«l[jj <- »«, 
- 3 

else 

3 - j ♦ 1 
•adit 
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endvhiXe 
•Isa 

ball out - 5 
end<£ " 

;lf 'noxt syringe' not on hold, and there is one in the input rack, get it 
if (ibeiX^out) 

current^index - neaet^syringe 

show "point 4" ~ 
else 

; if don't want to wait and there is a syringe in process 
current index » 0 
if (dont_vait) 

tiae now ■ time now €0 
endif " " 
endif 



Paoe 114 



wo 9602157 PCm}S96/01168 



Procedure : FINDTOP 

Purpose : turn on motor until sensor is triggered 
Author : MJB 



if ( Simula te_robot} 

stop 
endif 

;load zero into pic counter register 
SHARK. writebit o^clear^counter^ 1 
delay 100 

SHARK -writebit o clcs^r counter, 0 



set counter enable 
SHARK. writebit o_start_counter, 1 



set direction to forward and turn on motor (motor will turn off 
automatically) 
SHARK « writebit 224,1 
delay 500 

SHARK. writebit 401|1 



;wait for syringe to be sensed 

SHARK. readbit i sense^syringe, a 

timer findtop time 

while (!a) " 

SHARK, readbit i sense_syringe, a 
if (elapsed{finatop_time)>13) ' 

;stop motor 

SHARK. writebit 401,0 

delay 500 

/home motor 
call homemtr.tcl 
whi 1 e { ! home^^done ) 
endwhile 
delay 250 

;load zero into pic counter register 
SHARK.wri tebit o_clear_counter, 1 
delay 100 

SHARK •writebit o clear coxinter, 0 



;call error 
error_code = 5 
call error. tcl 
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; restart timer 
timer findtop_time 

,set counter enable 

SHARK •writebit o_start_counter, 1 



start motor to find top of syringe 
SHARK. writebit 224,1 
delay 500 

SHARK. writebxt 401,1 



endif 
endwhile 



;read the number of counts to reach the syringe 

SHARK* readctr i_motor pulses, motor pulses 

show "motor pulses = """^ + numtostr$7ii0tor_pulses) 



disable counter 
SHARK .writebit o_start_counter, 0 



i 
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CLAIMS s 

1. A system for the solid phase synthesis of 
multiple species of organic compounds each formed by 
repeated synthetic cycles of synthetic steps, said 
5 system comprising: 

a computer for processing a program of 
instructions correlated to predetermined synthetic 
cycles for the synthesis of each of said multiple 
species; 

an automated robot responsive to said computer, 
said automated rcrhot operative to cause said synthesis 
steps to be performed in accordance with the synthetic 
cycles of each of said multiple species; cuid 

a timing protocol, implemented by said program of 
15 instruction and executed by said con^uter, for 

directing synthetic steps of at least two different 
species to be performed concurrently. 



20 



2. The system of claim 1 wherein each of said 
species has an associated sequence specific timing 
protocol, the compilation of all sequence specific 
timing protocols of species currently under synthesis 
being a cumulative remaining timing protocol, said 
system further including means for determining whether 

25 there is a timing conflict between the sequence 

specific timing protocol of a new desired species and 
the cumulative remaining timing protocol. 

3. The system of claim 1 wherein said synthetic 
30 steps include the steps of washing, adding 

deprotection reagents, deprotection, adding coupling 
reagents and coupling. 

4. The system of claim l wherein said synthetic 
35 steps include active and passive synthetic steps, said 



SIIBSIinnE9IEEr(RULE26) 



wo 96^2157 PCT/US96/01168 

timing protocol directing said active steps within a 
first synthesis of a first species to be performed 
concurrently with passive steps within a second 
synthesis of a second species. 

5 

5. The system of claim 1 wherein said organic 
compounds includes peptides. 



10 



6. The system of claim 1 further comprising: 
a first set of a plurality of syringes, each 
syringe containing resin for repeatably coupling 
compounds to a solid support so as to synthesize a 
first species; and 

a second set of a plurality of syringes, each 
15 syringe containing a desired compound that is to be 
coupled to the solid support during one of said 
synthetic cycles. 



20 



7. The system of claim 6 where said compound 
that is to be coupled is an amino acid for the 
synthesis of a peptide. 



8- The system of claim 7 wherein said solid 
phase synthesis is a Merrifield solid phase peptide 
25 synthesis. 

9. The system of claim l wherein said automated 
robot includes 

a gripper arm responsive to said computer, said 
30 gripper arm selectively positioning and manipulating 
syringes from said first and second sets of a 
plurality of syringes to thereby aspirate or dispense 
solvents and regents required within said synthetic 
cycles. 

35 
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10. The system of claim 1 further comprising a 
database containing parameter variables required for 
the synthesis of said multiple species of organic 
compounds, said database including the characteristic 

5 sequence of the repeated synthetic cycles for each of 
said multiple species. 

11. A system for the solid phase synthesis of 
multiple peptides each formed by repeated synthetic 

10 cycles of synthetic steps, said system comprising: 
a first set c.c. syringes each holding a solid 
support ; 

a second set of syringes each holding a desired 
amino acid, said first set of syringes serving as the 

15 reaction vessels for coupling desired amino acids from 
said second set of syringes to the solid supports; 

a computer for processing a program of 
instructions correlated to predetermined synthetic 
cycles for the synthesis of multiple peptides; and 

20 an automated robot responsive to said computer, 

said automated robot operatively coupled to said first 
and second sets of syringes for aspirating and 
dispensing reagents so as to cause said repeated 
synthesis cycles to be performed in accordance with a 

25 desired peptide synthesis to thereby repeatably couple 
a desired amino acid to a solid support, said repeated 
synthesis cycles including the synthetic steps of 
washing, adding deprotection reagents, deprotection, 
adding coupling reagents and coupling, 

30 said repeated synthesis cycles performed in 

accordance with a timing protocol wherein said 
washing, adding deprotection reagents or adding 
coupling reagents is performed concurrently with said 
deprotection or coupling for different peptide 

35 syntheses. 
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12. The system of claim 11 wherein said first 
set of syringes is made of polypropylene. 

13. The system of claim 11 wherein each of said 
5 first set of syringes includes a solid phase retaining 

device 

14. The system of claim 13 wherein said solid 
phase retaining device is a frit. 

15. The system of claim 11 wherein said solid 
support comprises a resin selected from the group of 
polystyrene and polyethylene glycol. 

16. The system of claim 11 where said automated 
robot includes an arm operatively connected to said 
robot so as to manipulate each of said first and 
second sets of syringes. 

17. The system of claim 16 wherein said first 
and second sets of syringes each includes a plunger 
operatively coupled thereto,, said plunger movable by 
said arm of said automated robot to thereby aspirate 
or dispense reagents. 

18. The system of claim 17 wherein the content 
amount of reagents in each of said syringes is 
determined by the plunger position of the 
corresponding syringe. 

19. The system of claim 11 further including an 
optical sensor responsive to the movement of said 
first and second sets of syringes, said optical sensor 
confirming the positioning of said first and second 
sets of syringes. 
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20 . The system of claim II wherein said 
synthesis of peptides employs Pmoc/tBu chemistry. 

21. The system of claim 11 further comprising 
5 piston pumps and delivery cups, said piston pumps 

delivering solvents and reagents to said delivery cups 
from which said first and second sets of syringes 
dispense or aspirate said solvents or reagents . 

10 22. The system of claim 11 further including a 

database containing p:trameter variables recjuired for 
the synthesis of the multiple peptides. 

23 . A process for the solid phase automated 
15 synthesis of multiple species of organic compounds 

formed by repeated synthetic cycles of synthetic 
steps « said process conprising the steps of: 

a) initiating a synthetic step in a synthetic 
cycle of a species; 
20 b) determining if the time for said synthetic 

step of step a) is sufficient for initiating a 
synthetic step in the synthetic cycle of a different 
species, and if so, 

c) initiating a synthetic step in the synthetic 
25 cycle of said different species; and 

d) repeating steps a) , b) and c) until said 
multiple species are synthesized. 

24. The process of claim 23 wherein said 

30 synthetic steps include washing, deprotection and 
coupling for the synthesis of multiple peptides. 

25. The process of claim 24 wherein said 
deprotection and coupling are performed in a plurality 

35 of syringes which serve as reaction vessels. 



SUBSmUTE SHEET (RULE 26) 



W096«2157 PCTAJS9«»Iia 



26. A process for the automated solid phase 
synthesis of multiple peptides formed by repeated 
cycles of washing, adding deprotection reagents, 
deprotection, adding coupling reagents and coupling so 
5 as to repeatably couple amino acids to a solid 
support, said process comprising the steps of: 

a) filling a first set of syringes, each with a 
resin solid support; 

b) filling a second set of syringes , each with a 
10 desired amino acid; 

d) washing one of said first set of syringes with 
a first solution; 

e) adding deprotection solution to the syringe of 
step d) to initiate deprotection; 

15 f) while deprotection of step e) is proceeding 

repeating steps d) and e) if the time for performing 
those steps is less than the time required for 
deprotection, otherwise proceeding with step g) ; 

g) adding coupling solution to the syringe of 
20 step d) to initiate coupling to thereby couple a 

desired amino acid to the solid support; and 

h) while coupling of step g) is proceeding 
repeating steps f ) and g) if the time for performing 
those steps is less than the time for coupling, 

25 otherwise proceeding with steps d) and e) until the 
time for coupling expires. 

27. The process of claim 26 wherein steps a) 
through h) are repeated until a peptide is 
30 synthesized. 



2B. The process of claim 26 further comprising 
the step of washing each of said first set of syringes 
of step d) prior to adding coupling solution. 

35 
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29. The process of claim 26 wherein the system 
is automated through the use of a robot, said robot 
adding coupling and deprotection solution by 
manipulating the syringes so as to aspirate and 
5 dispense reagents. 

3 0 The process of claim 26 wherein the first 
solution is dimethylformamide. 

10 31. The process of claim 26 wherein the 

deprotection solution is plperidine/DMP. 

32. The process of claim 26 wherein the coupling 
solution is a solution of DIC/HOBt. 

15 

33. The process of claim 26 further comprising 
the step of interactively prompting a user for 
parameter variables thereby forming a database 
required for the synthesis of the multiple peptides, 

20 said database including the characteristic amino acid 
sequence of each of the multiple peptides. 

34. The process of claim 26 further comprising 
the step of adding or deleting peptide sequences to a 

25 list of peptides to be synthesized. 

35. A process for the solid phase automated 
synthesis of multiple species of organic compoxmds 
formed by repeated synthetic cycles of synthetic 

30 steps, said process con^rising the steps of: 

a) determining a sequence specific timing 
protocol associated with a desired species to be 
synthesized, said sequence specific timing protocol 
including when each synthetic step for the desired 

35 species occurs temporally; 
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h) determining the cumulative remaining timing 
protocol of species currently under synthesis, said 
cumulative remaining timing protocol including when 
each synthetic step for the species currently under 
synthesis occurs temporally; and 

c) determining whether a timing conflict exists 
between said sequence specific timing protocol and 
said cumulative remaining timing protocol, a timing 
conflict occurring when one synthetic step for the 
desired species to be synthesized cannot be performed 
concurrently with the synthetic steps of species 
currently vmder synthesis. 



10 
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36. The process of claim 35 further comprising 
the step of time shifting the synthesis initiation of 
the desired species to be synthesized so as to resolve 
the time conflict. 

37. The process of claim 35 wherein a time 

20 conflict occurs when an active synthetic step of the 
desired species to be synthesized is temporally 
coincident with any active synthetic steps for the 
species currently under synthesis. 



25 
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38. The process of claim 35 wherein said organic 
compounds includes peptides. 

39. The process of claim 35 further comprising 
the step of entering parameter variables required for 
the synthesis of the organic compounds. 



35 
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RETRIEVE SEQUENCE OF COMPOUND 

CHECK IF NECESSARY REAGENTS 
AVAILABLE 

1 

DETERMINE 'SEQUENCE SPECIRC 
TIMING PROTOCOL' FOR DESIRED 
SYNTHESIS OF SEQU ENCE 

COMPARE 'SEQUENCE SPECIRC 
TIMING PROTOCOL' WHH 
'CUMULATIVE REMAINING 
TIMING PROTOCOL' 




INITIATE SYNTHESIS OF 

DESIRED S EQUENCE 

FIG. 2A 
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EXECUTES HME SHIFT 
IN INCREMEKTS 




PERFORM NEXT REQUIRED 
ACTIVE SYNTHETIC STEP 



UPDATE "CUMUIATIVE REMAINING 
TIMING PROTOCOL* 



FIG. 2B 
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